Hat irgendeine Komponente auf dem Panel den Fokus?

[milos]

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 ^^

[himitsu]

Laufzeitproblem: Es kommt drauf an, was du machst.

Alle Komponenten durchgehen und schauen was TControl.Focused ist
oder nur die "wenigen" Parents durchlaufen, denn zum aktuell "Aktiven" Control kommt man ja ganz schnell hin.

Zitat von milos:

while Result.Parent is TPanel do

Was ist mit einer TGroupBox?
NOT?

Nja, bei mehreren Panels muß man halt so lange gehen, bis man "eines" der gesuchten Panels findet, oder bei NIL, bzw. der Form angelangt.
Entweder alle Namen Zeiger vergleichen, oder z.B. Tag oder einen Teil (Prefix/Sufix) von Caption/Name auswerten oder ableiten und den Typ prüfen.