如何從Delphi中的對象中發現所有者？

Question

我想創建一個過程，返回分配對象的表單的名稱。例如：

我有一個TPanel和TPanel一個TButton。我將作爲參數傳遞給TButton的函數名稱，並希望函數返回formuário的名稱，此按鈕位於何處。

怎麼辦？

LE：

function TForm1.DoSomething(Obj: TComponent): String; 
var AClass : String; I : Integer; 
begin 
AClass := TComponent(Obj).Owner.ClassName; 
if (AClass = 'TForm') then 
    Result := TComponent(Obj).Name 
else 
Result := TComponent(Obj).Owner.Name; 
end; 

procedure TForm1.Button1Click(Sender: TObject); 
begin 
NomeForm := DoSomething(Button3); 
ShowMessage(NomeForm); 
end; 

procedure TForm1.Button4Click(Sender: TObject); 
begin 
NomeForm := DoSomething(Form1); 
ShowMessage(NomeForm); 
end; 

Answer 1

下面是你所提到的相同條件一個簡單的例子。 面板上的按鈕返回表單的名稱。 功能ReturnForm，將遞歸運行，直到找到形式

function TForm22.ReturnForm(aParent: TWinControl): TWinControl; 
begin 
    Result:= nil; 
    if aParent <> nil then 
    begin 
    if aParent.Parent <> nil then 
     Result:= ReturnForm(aParent.Parent) 
    else 
     Result:= aParent; 
    end; 
end; 

procedure TForm22.Button1Click(Sender: TObject); 
begin 
    Showmessage(ReturnForm(Button1).Name); 
end; 

慎用翻譯從葡萄牙語到英語:)

Answer 2

在我看來，在Forms單位申報的過程GetParentForm你想要做什麼。看看

http://docs.embarcadero.com/products/rad_studio/delphiAndcpp2009/HelpUpdate2/EN/html/delphivclwin32/Forms_GetParentForm.html