编程论坛 → Delphi论坛

[求助]delphi怎样在关闭程序时弹出窗口？

jtws3000 发布于 2007-03-25 20:13， 1293 次点击

我想在关闭delphi编译的程序时，弹出“您是否确实要退出的窗口”点击否不退出，是退出

3 回复

sgliuxiu2007-03-25 21:58

加个条件
if messagedlg（‘’，comfirm,....) =.. then 退出 else 。。。
对不起，我这没delphi，好象是这样的，就是判断如果弹出来的窗口是ok？就退出，否则不退出。

stars_chen2007-03-26 09:42

procedure TunFDataCol.FormCloseQuery(Sender: TObject;
var CanClose: Boolean);
begin
CanClose := False;
if MessageDlg('Are you sure to close the program?', mtConfirmation, [mbYES, mbNO], 0) = mrYes then
begin
CanClose := True;
end;
end;

sgliuxiu2007-03-26 10:18

呵呵，谢谢楼上的。我这没装delphi，不记得那个语句了