你考虑以下几个原因:
1、如果是用Show,而不是用ShowModal的话,程序不会暂停等待窗体的返回而直接继续运行。
2、你用了ShowModal,但没有对ShowModal的返回值进行判断,以决定根据不同的值如何执行程序。
//隐藏外部程序的窗体
procedure
TForm1Button1Click(Sender:
TObject);
var
hw:THandle;
begin
hw:=Findwindow(nil,'窗体标题');
ShowWindow(hw,SW_HIDE);
end;
//显示外部程序的窗体
procedure
TForm1Button4Click(Sender:
TObject);
var
hw:THandle;
begin
hw:=Findwindow(nil,'窗体标题');
ShowWindow(hw,SW_SHOW);
end;
代码中'窗体标题'处可能要修改为:'tomcat'
,具体视tomcat的窗体标题栏文字而定。
>
start "" "程序路径exe" 这样调用就OK啦。如:
start "" "D:\123exe"
如果下面这样调用,需要等待程序窗口关闭之后CMD窗口才会关闭的。
D:\123exe
exit
uses unit2;
procedure TForm1Button1Click(Sender:TObject);
begin
form2:=TForm2Create(Self);
form2ShowModal;//form2Show;
form2Free;
end;
装了70后就直接双击 dpr那个文件打开项目,然后在相应的窗口上面修改
再具体的 怎么改,,窗口上选中需要修改的控件,在左边的对象查看器中修改相应的属性,比如说Caption属性,Text属性等
不明白的就随时hi我了
这样的修改其实只是修改了 dfm文件中的内容, 不过dfm文件里面的东西都是由窗口自动生成的;所以还是用delphi打开项目后在里面做改动,不推荐直接修改dfm文件(虽然能改,但是很麻烦)
以上就是关于为什么delphi 程序运行时,我设置的提示窗口出现后,程序还继续往下运行全部的内容,包括:为什么delphi 程序运行时,我设置的提示窗口出现后,程序还继续往下运行、用delphi小程序找到指定窗口并且隐藏、delphi调用SetWindowPos函数, 让当前窗口始终处在程序的最前面拜托各位大神等相关内容解答,如果想了解更多相关内容,可以关注我们,你们的支持是我们更新的动力!
欢迎分享,转载请注明来源:内存溢出
评论列表(0条)