TEdit "cannot focus a disabled or invisible window"

[b00gie]

Hallo zusammen,
ich hab ein Problem mit dem Fokus eines Edit-Felds.

Und zwar hab ich eine Loginfunktion. Wenn diese erfolgreich durchläuft, wird der Fokus mit SetFocus auf Edit1 gesetzt, damit man direkt schreiben kann. (Komportabler..). Funktioniert alles wunderbar.
Ich benutzt nebenbei noch das TCoolTrayIcon. Wenn meine Anwendung nun minimiert ist und ich versuche per PopUpMenu einen Login durchzuführen, bekomme ich diese Fehlermeldung "cannot focus a disabled or invisible window". Okay gesucht und getan....
... CanFocus sollte mir ja eigentlich melden wenn das Edit1 nicht fokusierbar ist, tut es aber nicht, ich bekomme immer True zurück... mit

Delphi-Quellcode:

if Edit1.Enabled = True AND Edit1.Visible = True then

komm ich auch nciht weiter. Die Anwendung ist minimiert und dennoch meldet mir Delphi das Edit1 Visible und Enabled ist und somit logischerweise auch CanFocus True ist!

Was kann ich da machen?

[mkinzler]

Es scheint mir eher, das der CoolTray die Messages empfängt. Dessen Fenster ist dann aber wohl nicht sichtbar

[b00gie]

hm okay, verstehen tu ich deinen Ansatz. Daran gedacht habe ich auch schon, aber wie könnte man sowas lösen?

[himitsu]

du kannst auch bei deiner Form unter .ActiveControl im OI gleich die Komponente angeben, welche beim Start den Fokus bekommen soll.

[BUG]

Zitat:

Zitat von b00gie

Delphi-Quellcode:

if Edit1.Enabled = True AND Edit1.Visible = True then

Nur mal so nebenbei: man sollte Boolean nicht auf true prüfen!
So gehts auch:

Delphi-Quellcode:

if Edit1.Enabled AND Edit1.Visible then

MfG,
Bug

[DeddyH]

Zumal das wegen der fehlenden Klammern sowieso nicht kompiliert würde :zwinker:

[jaenicke]

Zitat:

Zitat von DeddyH

Zumal das wegen der fehlenden Klammern sowieso nicht kompiliert würde :zwinker:

Doch, vielleicht schon, sind ja alles boolsche Werte, aber es kommt eben Schwachsinn heraus, wenn man a) auf True prüft und dann b) auch noch die Klammern weglässt...

[hoika]

Hallo,

ich würde einfach ein try/except ujm den Edit.SetFocus machen.
Die Situation kenne ich aus leidlicher Erfahrung mit PageControls.


Heiko

[himitsu]

wenn man die Klammern wegläßt, dann hat AND Vorrang

Delphi-Quellcode:

if (Edit1.Enabled = (True AND Edit1.Visible)) = True then

aber zum Glück würde hier zufällig aber dennoch das selbe Ergebnis rauskommen