|
|
导航: |
论坛 -> DELPHI技术
斑竹:liumazi,sephil |
|
作者: |
zhenh (千年虫) |
★☆☆☆☆ |
-
|
盒子活跃会员 |
|
2004/8/3 12:43:25 |
标题: |
|
加入我的收藏 |
楼主: |
不用application.MessageBox,而是用自己作的窗口作退出确认,怎么实现??谁能帮我,或者有源码提供一下。
----------------------------------------------
千年虫 |
作者: |
|
2004/8/3 13:04:08 |
1楼: |
form1.ShowModal
procedure Tform.Button1Click(Sender: TObject); begin application.Terminate; end;
----------------------------------------------
-
|
作者: |
zhenh (千年虫) |
★☆☆☆☆ |
-
|
盒子活跃会员 |
|
2004/8/4 9:31:47 |
2楼: |
那要是取消退出怎么作??麻烦大家了。
----------------------------------------------
千年虫
|
作者: |
|
2004/8/4 11:02:36 |
3楼: |
form1.ShowModal
procedure Tform.Button1Click(Sender: TObject); begin application.Terminate; end; ---------------------------------------------- procedure Tform.Button2Click(Sender: TObject); begin form1.close; end;
这个form1就是弹出的窗口,btn1是关闭程序,btn2是取消并退出form1
----------------------------------------------
|
|