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