Kipróbáltam amit küldtél. Köszönöm!
Egy win64 Laz-1.4RC2-n. De szerintem nem ez lesz a probléma.
A kód, amit küldtél, az nálam is működik Win és Linux (1.2.6) alatt is!
Mert, ha csak a bezárás ikonnal zárom be az alkalmazást, akkor működik:
procedure TForm1.FormCloseQuery(Sender: TObject; var CanClose: boolean);
begin
if MessageDlg('Biztos, hogy kilép?', mtConfirmation, [mbYes, mbNo], 0) <> mrYes then
CanClose:=false;
end;
Ha viszont a Kilépés gombbal, akkor nem:
procedure TForm1.exitButtonClick(Sender: TObject);
begin
application.Terminate;
end;
Tehát ez a különbség! Azaz az "application.Terminate;" esetén nem fut le az OnCloseQuery.
