Eigentlich steht doch schon alles da?!
Hast du mal folgendes probiert:
Delphi-Quellcode:
procedure Main_Form.btn_exit_Click(sender: System.Object; e: System.EventArgs);
begin
Self.Close();
end;
procedure Main_Form.Main_Form_Closing(sender: System.Object; e: System.ComponentModel.CancelEventArgs);
var
RC : integer;
begin
RC := MessageDlg('Close Adress Book?', mtwarning, mbyesno, 0);
If RC = 6 Then
e.Cancel := False
Else
e.Cancel := True;
end;
Wenn du dann noch das Closingevent richtig verdrahtest mit der Methode, dann sollte alles klappen?!
Gruß