Delphi 4 Bible/Delphi_4_Bible_Tom_Swan_IDG_Books_1998.iso/source/OnClose/Onclose.pas

Pascal/Delphi Source File | 1998-02-10 | 227b | 8 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;