Zustand eines Buttons erfahren

[mkinzler]

In dem Du auf das Drücken reagierst.

[Jasocul]

Das sollte funktionieren:

Delphi-Quellcode:

if ActiveControl <> JvHTButtonAbbrechen) then
    JvEditRohwareNr.SetFocus;

[Jumpy]

Ich vermute aber mal, das das eine Event das OnExit des Edits ist und das andere Event das OnClick des Buttons und dass beide ausgelöst werden, wenn der Cursor im Edit steht und dann auf den Button geklickt wird und dass dann irgendwas durcheinander kommt. Anders kann ich mir den Sinn der Frage nicht erklären?

[Jasocul]

Das Problem ist, dass OnExit vor ButtonClick ausgelöst wird.

[Luckner]

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

[Normalement]

Ich bin mir nicht sicher. Aber mit ein bisschen mehr Code könnte sich das Problem sicherlich schneller lösen lassen.

[Sir Rufo]

Zitat von Normalement:

Ich bin mir nicht sicher. Aber mit ein bisschen mehr Code könnte sich das Problem sicherlich schneller lösen lassen.

Plus ein bisserl mehr Erläuterung, was denn überhaupt genau passieren soll

[Luckner]

In JvEditRohwareNr überprüfe ich die Eingabe nach bestimmten Artikelnr. Diese Artikelnr. wird aber von einem anderem Anwender und Programm erstellt. Wenn diese Artikelnr. schon existiert, dann gibt es keine Probleme, ausser man hat sich verschrieben (deshalb der SetFocus auf das Editfeld). Wenn sie jedoch noch nicht erstellt wurde, dann könnte der Anwender meines Programms diese Eingaben erstmal beenden und andere Sachen machen. Abbrechen dann mit einem Button. Ich hoffe, es ist jetzt etwas verständlicher.

[Luckner]

Möchte nur mit Drücken von Abbruchbutton die Setfocus nicht ausführen. Es könnte sein dass Jasocul hier das Problem beschrieben hat.

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