OnExit bei Fenster übers X schließen

[Jasocul]

Du musst im OnClose nicht mal alle Edit-Daten speichern.
Es gibt das ActiveControl. Das kannst du abfragen und dann nur dessen Daten speichern. Setzt natürlich voraus, dass das ActiveControl auch ein TEdit ist. Das solltest du also vorher prüfen.

[Devil1925]

Stimmt... daran hab ich gerade nicht gedacht... So ganz im Sinne von "Warum einfach, wenn es auch kompliziert geht"! ich sollte mir, glaube ich, echt mal abgewöhnen immer so kompliziert zu denken.

[t.roller]

Andere Lösung:

Delphi-Quellcode:

...
  protected
    procedure WMNCLButtonDown(var Message: TWMNCLButtonDown); message WM_NCLBUTTONDOWN;
  end;
...
implementation

{$R *.dfm}

procedure TForm1.WMNCLButtonDown(var Message: TWMNCLButtonDown);
begin
  if (Message.HitTest = HTCAPTION) then self.WindowState:= wsMinimized;
  if (Message.HitTest = HTCLOSE) then 
Begin
//mach hier, was zu tun ist.................
Application.Terminate;
End;
  if (Message.HitTest = HTHELP) then
  begin ShowMessage('hello world'); message.Result := 0; end
  else inherited;
end;

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

[baumina]

ActiveControl auf Nil setzen, müsste auch gehen.