Zustand eines Buttons erfahren

[jaenicke]

Zitat von Luckner:

Leider kennt Delphi7 Ent. kein ActiveControl. Sorry habe vergessen das zu schreiben.

Mein Delphi 7 Enterprise kennt ActiveControl... und mein Delphi 1 (!) ebenfalls.
An der Funktionalität hat sich zwischen Delphi 3 und Delphi 10 Seattle auch nichts Grundlegendes geändert, SetFocusedControl sieht noch recht ähnlich aus.

SetFocusedControl könntest du übrigens auch überschreiben und das OnExit vor dem Aufruf von inherited auf nil setzen, wenn der gewünschte Button gerade fokussiert wird (wird als Parameter übergeben).

Es funktioniert hier aber auch in Delphi 7 wunderbar mit der Prüfung im OnExit des Edits, ob ActiveControl der Button ist. Dort steht da schon das neu fokussierte Control drin.

[Jasocul]

Zitat von jaenicke:

Zitat von Luckner:

Leider kennt Delphi7 Ent. kein ActiveControl. Sorry habe vergessen das zu schreiben.

Mein Delphi 7 Enterprise kennt ActiveControl... und mein Delphi 1 (!) ebenfalls.

Hatte ich mir schon gedacht, konnte es nur nicht überprüfen, da mir im Moment nur XE2 zur Verfügung steht.

ActiveControl ist übrigens eine Eigenschaft von TForm (bzw. TCustomForm).

In der Delphi-Hilfe steht unter Anderem:

Zitat:

Anmerkung: Wenn der Fokus zu einem anderen Steuerelement wechselt, wird ActiveControl aktualisiert, bevor das Ereignis OnExit ausgelöst wird.

Deswegen funktioniert mein Tipp unter #3.

[Luckner]

Hallo,

es ist schon länger her, jedoch wollte ich mich für die Tips noch bedanken. Aktuell stand ich wieder vor diesem Problem und habe festgestellt dass jaenicke hier völlig richtig lag.

Delphi-Quellcode:

if Form1.ActiveControl <> JvHTButtonAbbrechen) then
    JvEditRohwareNr.SetFocus;

ActiveControl ist natürlich eine Eigenschaft von TForm und nicht des TButton. Damit funktioniert es dann.

Danke.