OnExit-Event, aber nicht immer

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