OnExit - "Ziel" feststellen

[Der Jan]

Hallo mal wieder,

ich habe da ein etwas verzwicktes Problem:

In einem Formular habe ich ein Edit-Feld. In selbiges wird eine Auftragsnummer (Name: edtNr)eingegeben bzw. von einem Barcode-Scanner eingelesen. Beim OnExit-Ereignis des edtNr werden ein paar Datenbank-Abfragen ausgeführt, um nachfolgende Controls mit entsprechenden Werten zu füllen. Normalerweise erfolgt das Verlassen des edtNr durch die Enter-Taste, wodurch man zum nächsten Control kommt. Soweit alles voller gut :) Jetzt gibt es aber zwei Buttons auf dem Form, einen zum Löschen der Controls und einen zum Schließen. Wenn man diese klickt, wird logischerweise auch das OnExit-Events von edtNr, falls es gerade aktiv ist, ausgelöst. Ich möchte dies entweder verhindern (wird wohl nicht gehen) oder feststellen, wodurch das Verlassen von edtNr ausgelöst wurde, um entsprechend zu reagieren.
Ich könnte natürlich einen Button neben (oder in) edtNr setzen, den man klicken muß, um die entsprechenden Aktionen zu starten, aber dies würde die Bedienung umständlicher machen und die einfache und schnelle Bedienung möglichst ohne Maus ist eine der Hauptanforderungen in diesem speziellen Fall.
Vielleicht (sicherlich) gibt es ja auch noch eine einfachere Lösung...

[Hawkeye219]

Hallo Jan,

warum prüfst Du nicht im OnKeyPress- bzw. OnKeyDown-Ereignis des Edit-Felds, ob die Return-Taste gedrückt wurde?
Falls ja, dann führe die Datenbank-Abfrage durch.

Gruß Hawkeye

[Lannes]

Hallo,

damit kannst Du feststellen durch welchen Button das OnExit eines Edits ausgelöst wird, da ActiveControl Dir das Control angibt, das den Focus bekommen wird.

Delphi-Quellcode:

procedure TForm1.Edit1Exit(Sender: TObject);
begin
  showmessage(ActiveControl.Name);
end;

[Der Jan]

@Hawkeye: Das mache ich ja und in diesem Fall, also der "normalen" Bedienung gibt es ja auch keine Probleme, sondern nur, wenn dann z.B. die Buttons anklickt.

@Lannes: Das ist interessant, ich wußte gar nicht, daß ActiveControl zu diesem Zeitpunkt schon gesetzt ist. Wenn dem so ist, hilft mir das auf jeden Fall weiter. Ich werde das mal testen.

[Der Jan]

@Lannes: Genauso funktioniert es.

Danke für den Tips!