Объясните пожалуйста как сделать подтверждение на закрытие окна?
Объясните пожалуйста как сделать подтверждение на закрытие окна в Delphi?
Спасибо огромное!=)
procedure TForm1.OnCloseQuery(CanClose:boolean;Sender:TObject)
begin
case MessageDlg('Закрыть окно?',mtInformation,[mbYes,mbNo],0) of
mrYes:canClose:=true;
mrNo":canClose:=false;
end;
end;
begin
case MessageDlg('Закрыть окно?',mtInformation,[mbYes,mbNo],0) of
mrYes:canClose:=true;
mrNo":canClose:=false;
end;
end;
procedure TForm1.FormCloseQuery(Sender: TObject; var CanClose: Boolean);
begin
case MessageDlg('Закрыть окно?',mtInformation,[mbYes,mbNo],0) of
mrYes:canClose:=true;
mrNo:canClose:=false;
end;
end;
begin
case MessageDlg('Закрыть окно?',mtInformation,[mbYes,mbNo],0) of
mrYes:canClose:=true;
mrNo:canClose:=false;
end;
end;