Edit-Exit vor Buttonklick auswerten?

[Getox]

Hallo,

ich habe ein TDBEdit. Dieses aktualisiert den Wert im DataSet wenn man es verlässt. Ich habe allerdings einen Button, dessen Funktionalität darauf angewiesen ist, dass der Wert im Dataset bereits aktualisiert wurde. Wenn ich aber den Fokus noch im Edit habe und dann auf den Button klicke, wird erst der Buttonklick (mit dem falschen Wert im DataSet) ausgeführt und erst im Anschluss wird das Verlassen des Edits bearbeitet.

Gibt es eine einfache Möglichkeit das umzudrehen?

Danke und liebe Grüße

[alex517]

evt.damit

Delphi-Quellcode:

procedure TMyForm.BtnClick(Sender: TObject);
begin

  ActiveControl.Perform(CM_EXIT, 0, 0);

...

[Getox]

Vielen Dank. Es funktioniert.

[Rolf Frei]

Hast du einen Button ohne Focus? Der normale TButton löst das Exit auf dem Edit aus, bevor das Clickevent des Buttons ausgelöst wird, weil zuert der Focus auf den Button wandert und ein Exit beim Edit auslöst.

Nutzt du einen anderen Button, der kein Focus hat, kannst du im Click den Focus irgendwo anderst hinbewegen oder machst es so wie alex517 es geschrieben hat.

Nicht getestet, aber ich glaube mit Dataset.UpdateRecord kannst du das auch machen und das wäre erst noch die schönste Lösung. Rufe dazu in deinem Clickevent einfach diese Methode auf.

[himitsu]

ToolButtons bekommen keinen Fokus.

Besonders ist nett, dass in den DBNavigatoren ToolButtons drin sind
und auch der [x] der Form nimmt keinen Fokus.

Also beim Speichern und Schließen der Form wird vorher das aktive Edit eventuell nicht richtig gespeichert.
Ganz besonders unpraktisch bei DevExpress, wenn man dort ImmediatePost nicht aktiv hat, also wo im DBEdit nicht bei jedem Tastendruck/OnChange sofort der Wert ans Field/DataSet übergeben wird.