Form1.Deactivate abfangen

[Go2EITS]

Kleiner Schönheitsfehler in der vorstehenden Lösung: Damit das Programm beim nächsten Schließen beendet werden kann, denn wenn CanClose:=False ist, kommt man aus dem Programm nicht mehr so einfach raus, muss irgendwo ein CanClose:=True rein. z. B. so:

Delphi-Quellcode:

procedure TForm1.FormCloseQuery(Sender: TObject; var CanClose: Boolean); 
begin 
  if MessageDlg('Close the form?', mtConfirmation, 
    [mbOk, mbCancel], 0) = mrCancel then 
     CanClose := False else
     CanClose := True;
end;

F1 hat nicht immer offensichtlich die beste Lösung. Alles klar?
Beste Grüße
Go2EITS