Zustand eines Buttons erfahren

[Luckner]

Mit der folgenden Routine, die natürlich nicht funktioniert, möchte ich mein Problem beschreiben:

Delphi-Quellcode:

if not (Sender Is JvHTButtonAbbrechen) then
   JvEditRohwareNr.SetFocus;

In JvEditRohwareNr überprüfe ich die Eingabe nach bestimmten Kombinationen. Solange es keine Übereinstimmung gibt, springe ich wieder zurück in dieses JvEditRohwareNr-Feld. Die überprüfung findet im OnExit-Event. Wie stelle ich fest, dass JvHTButtonAbbrechen gedrückt wurde?

Danke.

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

Zitat von Normalement (Beitrag 1334201)

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 :stupid:

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

[Sir Rufo]

Dann prüfe einfach in

Delphi-Quellcode:

OnExit

des Edits nicht auf eine gültige Nummer, sondern erst dann, wenn der Anwender eine bestimmte Aktion auslöst (erst dann will er ja etwas mit der Eingabe anfangen)

[Luckner]

Hmm, leider kann ich das Feld auch nicht leer lassen, dass wäre ein mögliches Abbruchskriterium, eber es darf nicht leer bleiben, weil mit einer gültigen Artikelnr. auch andere Artikeleigenschaften ausgelesen werden.

[baumina]

Mache einen OK-Button, der beim OnClick alle Prüfungen macht, bei nicht OK, den Fokus aufs Edit setzen und mache einen Abbruch-Button, der beim OnClick irgendwas anderes macht.

[Sir Rufo]

Zitat:

Zitat von Luckner (Beitrag 1334214)

Hmm, leider kann ich das Feld auch nicht leer lassen, dass wäre ein mögliches Abbruchskriterium, eber es darf nicht leer bleiben, weil mit einer gültigen Artikelnr. auch andere Artikeleigenschaften ausgelesen werden.

Soviel zu deiner genauen Beschreibung wo wir uns jetzt alle genau vorstellen können, was du eigentlich willst :roll:

[Luckner]

Ja. Muß ich mir was überlegen in dieser Richtung. Chef ist aber nicht begeistert von so vielen Mausgeklicke. Ich dachte, es gäbe einen einfacheren Weg.:(

[Mavarik]

Zitat:

Zitat von Luckner (Beitrag 1334218)

Ja. Muß ich mir was überlegen in dieser Richtung. Chef ist aber nicht begeistert von so vielen Mausgeklicke. Ich dachte, es gäbe einen einfacheren Weg.:(

Natürlich gibt es den... Nimm nicht das Edit Feld für die Datenspeicherung der Nr... und schon ist egal was da drin steht...

Oder merk die den Status
Oder merk dir die Maus position
Oder weiß der Geier...

Ohne Infos keine Lösung.

[Medium]

Wie wäre es denn, das Edit nach Eingabe einer ungültigen Zahl und "Exiten" farblich zu markieren? Oder ein Icon daneben an dem man erkennt, dass die Eingabe nicht gültig ist. Die restlichen abhängigen Daten werden dann halt einfach nicht geladen, und der OK-Button disabled. Das würde ich als übliches Vorgehen ansehen.

[jaenicke]

Zitat:

Zitat von Luckner (Beitrag 1334198)

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:

Zitat von jaenicke (Beitrag 1334268)

Zitat:

Zitat von Luckner (Beitrag 1334198)

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.

[himitsu]

Wenn der Code jetzt in einer Methode von TForm drin steht, dann hoffe ich jemand haut dich, wenn du wirklich die globale Variable (Form1) verwendest.

[Luckner]

Bitte um kurze Erläuterung?

[DeddyH]

Du willst ja auf das ActiveControl der eigenen Instanz zugreifen, nicht auf das derjenigen, die in Form1 abgelegt wurde (sofern es die überhaupt gibt).

[himitsu]

Willst du unbedingt eine "Variable" Verwenden, dann nimm Self.