Wie wärs mit
Delphi-Quellcode:
function TForm1.GetPanel :TWinControl;
begin
Result := self.ActiveControl;
while Result.Parent is TPanel do
Result := LControl.Parent;
end;
Ist ungetestet und auf dem Handy geschrieben.
Der code geht einfach so lange die Parents des aktiven Controls durch bis das Parent kein TPanel mehr ist und gibt dieses zurück.
Freundliche Grüsse
Edit: LOL hatte nen doofen fehler hin, das Smartphone ist halt nicht wirklich brauchbar dazu ^^