OnExit-Event, aber nicht immer

[easywk]

Hallo zusammen,

ich habe in meiner Anwendung ein TEdit, welches mit einem OnExit-Event versehen ist. Zusätzlich noch einige TButton usw. Mein Problem: das OnExit soll nur aufgerufen werden, wenn das TEdit-Element mit der Tab-Taste verlassen wird. Wenn beispielsweise der Cursor im TEdit steht und mit der Maus der TButton angeklickt wird, dann soll das OnExit nicht aufgerufen werden.
Leider kommt das OnExit des TEdit vor dem OnClick des TButtons, so dass ich es darüber auch nicht abfangen kann :(

Hat jemand eine Lösung dafür?

Vielen Dank im voraus.

cu easywk

[Christian Seehase]

Moin Easywk,

dazu mal ein kleiner Schnellschuss:

Delphi-Quellcode:

procedure TForm1.Edit1Exit(Sender: TObject);
begin
  if WindowFromPoint(Mouse.CursorPos) = Button1.Handle then begin
    self.Caption := 'CLICK';
  end else begin
    self.Caption := 'TAB';
  end;
end;

[easywk]

Moin.

Das hört sich ganz gut an, werde ich mal ausprobieren.

cu easywk