OnExit bei Fenster übers X schließen

[hoika]

Hallo,
erledigt !!!

Delphi-Quellcode:

procedure TForm98.Edit1Exit(Sender: TObject);
begin
  MessageBox(0, 'Edit1Exit', '', 0);
end;

procedure TForm98.Edit2Exit(Sender: TObject);
begin
  MessageBox(0, 'Edit2Exit', '', 0);
end;

procedure TForm98.FormClose(Sender: TObject; var Action: TCloseAction);
begin
  PostMessage(ActiveControl.Handle, CM_EXIT, 0, 0);
end;