X
xiaoping622
Unregistered / Unconfirmed
GUEST, unregistred user!
我现在课程设计基本上已经做好了,,,差的就是后期的测试与完善...不过有一次看见别人的程序在退出窗体时,,单击系统的红叉的时候弹出一个确认退出信息...不知道这个怎么实现,,,代码在哪里面写.....?
H
HNXXCXG
Unregistered / Unconfirmed
GUEST, unregistred user!
procedure TynMainForm.FormCloseQuery(Sender: TObject;
var CanClose: Boolean);
begin
{退出软件时进行提示}
if application.MessageBox(pchar(ifQuit),
pchar(application.Title), 32+4) = 6 then
canClose := true
else
canClose := false;
end;
var CanClose: Boolean);
begin
{退出软件时进行提示}
if application.MessageBox(pchar(ifQuit),
pchar(application.Title), 32+4) = 6 then
canClose := true
else
canClose := false;
end;
M
malaya
Unregistered / Unconfirmed
GUEST, unregistred user!
在FORM的FormClose事件中写
procedure TForm_main.FormClose(Sender: TObject; var Action: TCloseAction);
begin
if Application.MessageBox('您确认退出本软件吗?','退出软件',MB_OKCANCEL+MB_ICONQUESTION)=IDOK then
begin
Action:=caFree
end
else
Action:=caNone;
end;
procedure TForm_main.FormClose(Sender: TObject; var Action: TCloseAction);
begin
if Application.MessageBox('您确认退出本软件吗?','退出软件',MB_OKCANCEL+MB_ICONQUESTION)=IDOK then
begin
Action:=caFree
end
else
Action:=caNone;
end;
N
nakata_wang
Unregistered / Unconfirmed
GUEST, unregistred user!
^_^,两个方法都可取,[
] 来晚了
] 来晚了
X
xiaoping622
Unregistered / Unconfirmed
GUEST, unregistred user!
哦,,,,谢谢你们了.....