[Solved] how can i find master parent ?

[majid.ebru]

Hi
please guide and help me

how can i find master parent of  "panel3" ?
master parent is "Form1".

[440bx]

Do you need a cross platform solution or is Windows-only ok ?

[majid.ebru]

i use windows , please say in windows

[440bx]

There are a number of ways of doing it.

You can use GetAncestor, GetParent or GetTopWindow.

Depending on the function you use, you may need to detect that the returned value isn't the desktop window.

The combination GetAncestor with GA_ROOT will likely do the trick for you.  If not, one of the other two will.  (the reason I'm not giving you a definite answer is because I'm not sure how the LCL manages windows but, one of those will do the "trick".)  In a pure Windows API program, I use GetTopWindow without any problems.

ETA:

I forgot to mention GetTopLevelWindow (it's undocumented - too useful to be documented ) you can find an example which includes its definition and how to use it at https://forum.lazarus.freepascal.org/index.php/topic,53469.msg395532.html#msg395532

HTH.

[cdbc]

Hi
How about:

Code: Pascal  [Select][+][-]

1. GetParentForm(Self); from forms.pp

Regards Benny

[dsiders]

Hi
please guide and help me

how can i find master parent of  "panel3" ?
master parent is "Form1".

Code: Pascal  [Select][+][-]

1. Panel3.GetTopParent.Name

[majid.ebru]

Thank you @dsiders

your code worked.

now how can i find Panel1 ?
the penultimate parent of the panel3 ?

[wp]

now how can i find Panel1 ?
the penultimate parent of the panel3 ?

A good exercise in recursive thinking:

Code: Pascal  [Select][+][-]

1. function PenultimateParentOf(C: TWinControl): TWinControl;
2. var
3.   C0: TWinControl;
4.   P: TWinControl;
5.   PP: TWinControl;
6. begin
7.   C0 := C;
8.   P := C.Parent;
9.   if P = nil then
10.   begin
11.     Result := nil;
12.     exit;
13.   end;
14.  
15.   PP := P.Parent;
16.   while PP <> nil do
17.   begin
18.     C := P;
19.     P := C.Parent;
20.     PP := P.Parent;
21.   end;
22.   if C = C0 then
23.     Result := nil
24.   else
25.     Result := C;
26. end;
27.  
28. procedure TForm1.FormCreate(Sender: TObject);
29. var
30.   P: TWinControl;
31. begin
32.   P := PenultimateParentOf(Panel4);
33.   if P = nil then
34.     Caption := 'no penultimate parent'
35.   else
36.     Caption := P.Name;
37. end;  

[paweld]

The TWinControl class has a HasParent property:

Code: Pascal  [Select][+][-]

1. function PenultimateParentOf(C: TWinControl): TWinControl;
2. begin
3.   Result := C;
4.   while Result.HasParent and Result.Parent.HasParent do
5.     Result := Result.Parent;
6.   if Result = C then
7.     Result := nil;
8. end;
9.  
10. procedure TForm1.FormCreate(Sender: TObject);
11. var
12.   P: TWinControl;
13. begin
14.   P := PenultimateParentOf(Panel4);
15.   if P = nil then
16.     Caption := 'no penultimate parent'
17.   else
18.     Caption := P.Name;
19. end;