主题:窗体退出
league
[专家分:0] 发布于 2006-12-14 12:38:00
关闭窗口一般都来个询问
if Application.MessageBox(' 退出吗?','警告',mb_OKCANCEL+ICONQUESTION)=mrOK then
Application.terminate;
我选否为什么窗体也退出呀?
回复列表 (共5个回复)
沙发
wslxg [专家分:60] 发布于 2006-12-14 14:03:00
用这个
if messagedlg('你确认要关闭窗口吗?',mtinformation,[mbyes,mbno],1)=mryes then close;
板凳
aizaixiiii [专家分:2130] 发布于 2006-12-14 18:05:00
不建议用MESSAGEDIG!
procedure TForm1.FormCloseQuery(Sender: TObject; var CanClose: Boolean);
begin
CanClose:=Application.MessageBox(' 退出吗?','警告',mb_OKCANCEL+MB_ICONQUESTION)=mrOK;
end;
3 楼
league [专家分:0] 发布于 2006-12-16 17:05:00
~{?IRTJ5OVAK2;9}JGH76(04E%5C5==95c~},~{TuQy2ED\J97q04E%5C5==95cDD~}?
4 楼
pandayu [专家分:0] 发布于 2006-12-19 17:20:00
[quote]~{?IRTJ5OVAK2;9}JGH76(04E%5C5==95c~},~{TuQy2ED\J97q04E%5C5==95cDD~}?
[/quote]
3楼的兄弟,这段程序是什么意思呀,什么语言编的...???
5 楼
league [专家分:0] 发布于 2006-12-20 16:18:00
那是我在XP系统下回的,是乱码。我也不知道为什么在XP下会这样。
我来回复