Hat irgendeine Komponente auf dem Panel den Fokus?

[Mattze]

Hallo,

das Thema gibt es bestimmt schon, aber ich weiß nicht, wie ich es bezeichnen soll bzw. wonach ich da suchen muss.

Also, am besten ein Beispiel:
Ich habe mehrere Panele mit einer Menge Komponenten drauf.
Mein Programm braucht aber nur zu wissen, "welches Panel den Fokus hat".
Muss ich da über alle Komponenten aller Panele iterieren, welche Komponente den Fokus hat?
Dann wüsste ich ja, welches Panel den Fokus hat.

Eigentliche Frage:
Hat eine Komponente auf dem Panel den Fokus? Welche, ist egal.
Und das für alle Panele einzeln abfragen? (Laufzeit???)

Kann man sich nicht in die "Übergabekette" für den Fokus einschalten und das irgendwie direkt rauskriegen?

Gruß
Mattze

[Christian Seehase]

Moin Mattze,

ich weiss ja nicht, an welcher Stelle Du das abfragen willst, aber es gibt die Eigenschaft ActiveControl des Formulares.
Hiervon jetzt Parent.Name abfragen (ActiveControl.Parent.Name) sollte Dir das Panel zurückgeben.
(ungetestet)

[himitsu]

Notfalls noch die Parents weiter hoch prüfen, falls das tiefer verschachtelt ist.

Delphi-Quellcode:

{Form. oder Self.}ActiveControl

(liefert auch den richtigen Wert, wenn eine andere Form den Fokus hat, ist aber gern NIL, wenn man mit MDI arbeitet)
oder (notfalls)

Delphi-Quellcode:

Screen.ActiveControl

.

[Mattze]

(Genau das Verschachteln sind das "theoretische" Problem. Wie ist das Laufzeitverhalten?)

Hallo und Danke!
Das war ja schneller geantwortet als ich die Frage formulieren konnte.

Das Problem wäre in einer ersten Stufe geklärt.
Aber es geht ja noch weiter.
(Allerdings schon fast theoretisch!)
Wenn ich mehrere Panels habe, die wiederum mehrere Panels ihr eigen nennen usw.
Und irgendeine Komponente auf irgendeinem Panel hat den Fokus.
Ich weiß aber nicht, wie viele Parents es gibt.
Muss ich da wirklich alles durchtesten (auch alle parents), um rauszukriegen, welches "Urpanel" nun eigentlich "den Fokus hat"?

Es gibt da CM_FocusChanged. Gibt das vielleicht irgendwann in der "Fokuszuweisungskette" das Panel an?
(Komisch!
Ich benutze
procedure CMFocusChanged( var Message : TCMFocusChanged ); message CM_FOCUSCHANGED;
für etwas anderes und das geht in Ordnung.
Aber von msdn findet google da nix.)

Gruß
Mattze

[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. :zwinker:

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:

Zitat von milos (Beitrag 1340026)

Delphi-Quellcode:

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.

[Mattze]

Hallo,

vielen Dank.
OK, das ist so der erste Hinweis, was zu machen ist.
Ich habe mich nämlich selber ausgetrickst!!!
Beim Druck auf einen Toolbutton soll etwas gemacht werden, abhängig davon, in welcher Komponente, für die etwas gemacht werden kann, der Fokus zuletzt war.
Hört sich gut an, nicht wahr?

Konkretes Beispiel bei mir:
Beim Druck auf den Toolbutton soll gedruckt werden:
Zum Drucken stehen Treeview, 2 Listviews und ein TwinControl an.
Abhängig davon, wer zuletzt vor dem Schalter davon den Fokus hatte, soll das gedruckt werden.
(Das kann durchaus heißen, dass ich den treeview fokusiere, 10000000 andere Schalter usw. ausführe und dann erst den Druckschalter drücke. Dann soll der Treeview gedruckt werden!)

Wird sich also nix ohne Hilfsvariable machen lassen, die dann nach Eurem Vorschlag zu ermitteln ist!

Gruß
Mattze