Delphi-Quellcode:
procedure TForm1.FormCloseQuery(Sender: TObject;
var CanClose: Boolean);
var
Button: DWORD;
begin
Button := Messagebox(
Handle, '
Schließen?', '
Test', MB_YESNO);
if Button = ID_YES
then
CanClose := True
else
CanClose := False;
end;
procedure TForm1.Button1Click(Sender: TObject);
begin
Close;
end;
Auch wenn ich über den Button schließe, kommt die abfrage nur einmal. Oder verstehe ich da jetzt was falsch?