为什么delphi 程序运行时,我设置的提示窗口出现后,程序还继续往下运行

为什么delphi 程序运行时,我设置的提示窗口出现后,程序还继续往下运行,第1张

你考虑以下几个原因:

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函数, 让当前窗口始终处在程序的最前面拜托各位大神等相关内容解答,如果想了解更多相关内容,可以关注我们,你们的支持是我们更新的动力!

欢迎分享,转载请注明来源:内存溢出

原文地址: http://outofmemory.cn/zz/10095816.html

(0)
打赏 微信扫一扫 微信扫一扫 支付宝扫一扫 支付宝扫一扫
上一篇 2023-05-05
下一篇 2023-05-05

发表评论

登录后才能评论

评论列表(0条)

保存