Delphi 4 Bible/Delphi_4_Bible_Tom_Swan_IDG_Books_1998.iso/source/Misc/CloseQuery.pas

Pascal/Delphi Source File | 1998-04-04 | 231b | 9 lines

procedure TForm1.FormCloseQuery(Sender: TObject;
  var CanClose: Boolean);
begin
  if MessageDlg('End the program?',
    mtConfirmation, [mbYes, mbNo], 0) = mrYes
    then CanClose := True
    else CanClose := False;
end;