procedure TForm1.DisAgreenClick(Sender: TObject);
begin
close;
end;这样 这个按钮的CLOSE可以关闭程序为什么下面这个if 里面的就不能关???Delphi的if else怎么了?!?!?!?!?!!
procedure TForm1.FormCreate(Sender: TObject);
begin
if FileExists(ExtractFilePath(Application.ExeName)+'line.exe')
then
else
begin
ShowMessage('请把我放在app的目录下,这个位置不对!');
close; // 就是这句!!!为什么不执行它??????????
end;end;
begin
close;
end;这样 这个按钮的CLOSE可以关闭程序为什么下面这个if 里面的就不能关???Delphi的if else怎么了?!?!?!?!?!!
procedure TForm1.FormCreate(Sender: TObject);
begin
if FileExists(ExtractFilePath(Application.ExeName)+'line.exe')
then
else
begin
ShowMessage('请把我放在app的目录下,这个位置不对!');
close; // 就是这句!!!为什么不执行它??????????
end;end;
解决方案 »
- 如何在webbrowser中自动关闭弹出的js的alert对话框
- 如何用DELPHI的正则,找出项目有所有.pas文件里的中文 ?
- ActiveForm建立的OXC不能自动注册问题?
- 请大家看看这个问题怎么解决
- 请问哪里可以下载delphi5.0?
- 请教各位大哥,如何配置虚拟目录的属性?
- oracle 代码集问题,急!!!在线等待,立刻给分!!
- 怎样使MDICHILD菜单不自动融合到MDI的菜单中去?
- 如何才能得到粘贴时的原文件名和目标?谢谢
- 送分(请问delphi6在哪个网站可以下载)
- listview 如何设置item 的cation 不能为空,谢谢!
- d7开发soap/service com+程序时,运行客户端出现一个错误
就可以了http://lysoft.7u7.net