AGB  ·  Datenschutz  ·  Impressum  







Anmelden
Nützliche Links
Registrieren
Zurück Delphi-PRAXiS Programmierung allgemein Programmieren allgemein Delphi Hat irgendeine Komponente auf dem Panel den Fokus?

Hat irgendeine Komponente auf dem Panel den Fokus?

Ein Thema von Mattze · begonnen am 13. Jun 2016 · letzter Beitrag vom 13. Jun 2016
Antwort Antwort
Mattze

Registriert seit: 6. Jan 2005
664 Beiträge
 
#1

Hat irgendeine Komponente auf dem Panel den Fokus?

  Alt 13. Jun 2016, 15:06
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
  Mit Zitat antworten Zitat
Christian Seehase
(Co-Admin)

Registriert seit: 29. Mai 2002
Ort: Hamburg
11.262 Beiträge
 
Delphi 2006 Professional
 
#2

AW: Hat irgendeine Komponente auf dem Panel den Fokus?

  Alt 13. Jun 2016, 15:14
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)
Tschüss Chris
Die drei Feinde des Programmierers: Sonne, Frischluft und dieses unerträgliche Gebrüll der Vögel.
Der Klügere gibt solange nach bis er der Dumme ist
  Mit Zitat antworten Zitat
Benutzerbild von himitsu
himitsu

Registriert seit: 11. Okt 2003
Ort: Elbflorenz
38.596 Beiträge
 
Delphi 10.4 Sydney
 
#3

AW: Hat irgendeine Komponente auf dem Panel den Fokus?

  Alt 13. Jun 2016, 15:35
Notfalls noch die Parents weiter hoch prüfen, falls das tiefer verschachtelt ist.

{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) Screen.ActiveControl .
Garbage Collector ... Delphianer erzeugen keinen Müll, also brauchen sie auch keinen Müllsucher.
Delphi-Tage 2005-2014
  Mit Zitat antworten Zitat
Mattze

Registriert seit: 6. Jan 2005
664 Beiträge
 
#4

AW: Hat irgendeine Komponente auf dem Panel den Fokus?

  Alt 13. Jun 2016, 15:42
(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
  Mit Zitat antworten Zitat
Benutzerbild von milos
milos

Registriert seit: 14. Jul 2008
Ort: Bern (CH)
486 Beiträge
 
Delphi 10.1 Berlin Professional
 
#5

AW: Hat irgendeine Komponente auf dem Panel den Fokus?

  Alt 13. Jun 2016, 16:26
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 ^^
Milos

Geändert von milos (13. Jun 2016 um 16:57 Uhr)
  Mit Zitat antworten Zitat
Benutzerbild von himitsu
himitsu

Registriert seit: 11. Okt 2003
Ort: Elbflorenz
38.596 Beiträge
 
Delphi 10.4 Sydney
 
#6

AW: Hat irgendeine Komponente auf dem Panel den Fokus?

  Alt 13. Jun 2016, 17:20
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.

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.
Garbage Collector ... Delphianer erzeugen keinen Müll, also brauchen sie auch keinen Müllsucher.
Delphi-Tage 2005-2014

Geändert von himitsu (13. Jun 2016 um 17:25 Uhr)
  Mit Zitat antworten Zitat
Mattze

Registriert seit: 6. Jan 2005
664 Beiträge
 
#7

AW: Hat irgendeine Komponente auf dem Panel den Fokus?

  Alt 13. Jun 2016, 17:35
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
  Mit Zitat antworten Zitat
Themen-Optionen Thema durchsuchen
Thema durchsuchen:

Erweiterte Suche
Ansicht

Forumregeln

Es ist dir nicht erlaubt, neue Themen zu verfassen.
Es ist dir nicht erlaubt, auf Beiträge zu antworten.
Es ist dir nicht erlaubt, Anhänge hochzuladen.
Es ist dir nicht erlaubt, deine Beiträge zu bearbeiten.

BB-Code ist an.
Smileys sind an.
[IMG] Code ist an.
HTML-Code ist aus.
Trackbacks are an
Pingbacks are an
Refbacks are aus

Gehe zu:

Impressum · AGB · Datenschutz · Nach oben
Alle Zeitangaben in WEZ +2. Es ist jetzt 06:29 Uhr.
Powered by vBulletin® Copyright ©2000 - 2021, Jelsoft Enterprises Ltd.
LinkBacks Enabled by vBSEO © 2011, Crawlability, Inc.
Delphi-PRAXiS (c) 2002 - 2021 by Daniel R. Wolf