请教:如何判断一个form是否已经存在? 如题,谢谢 解决方案 » 免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货 应该说:如何判断form是否已经show了出来? if formName=nil then showmessge('该窗体没有打开') to bestluo(要学) 我试了下,有点问题;无论form是否打开,其FormName都不等于nil; if not Assigned(Form) then//判断你要的窗体是否存在 application.create(TForm,Form1);//没有的话创建form1.showmodal;//有的话显示form1.free;//释放窗体 if not assigned(Form) then begin Form:=Tform.create(nil); try Form.showmodal; finally Form.free; Form:=nil; end; end; if assign(form) then showmessage('窗体已经存在:)'); Assigned(Form)返回true时Form不存在 Sorry,Assigned(Form)返回true时Form存在 你可以这样的,formname:=nil; 然后中:if formname=nil thenbeginfromname:=tformname.create(self);showmessge('该窗体已经创建')formname.show;end; 100美元笔记本电脑明年上市,我们能做点什么? Delphi调用ExcelApplication的问题 adoquery是不是像adostoredproc一样可以接收存储过程的返回值啊? 怎样才能使程序员,以后不会“饿”死!! 关于query控件的问题,在线等 sql server中如何使用处理IIF函数? 急!100分请求帮忙! 统计一下,现在有多少人在CSDN上! 怎样才能改变Delphi程序最化及在桌面上的图标 Delphi中有没有像VB中那个SendKeys之类的东东? 你是上帝吗? intraweb调用css
showmessge('该窗体没有打开')
我试了下,有点问题;无论form是否打开,其FormName都不等于nil;
application.create(TForm,Form1);//没有的话创建
form1.showmodal;//有的话显示
form1.free;//释放窗体
begin
Form:=Tform.create(nil);
try
Form.showmodal;
finally
Form.free;
Form:=nil;
end;
end;
然后中:
if formname=nil then
begin
fromname:=tformname.create(self);
showmessge('该窗体已经创建')
formname.show;
end;