procedure TMainForm.N9Click(Sender: TObject);
var
ZyglForm: TZyglForm;
begin
ZyglForm := TZyglForm.Create(self);
ZyglForm.Show;
end;
我是点击的时候才创建窗体,但有个问题是:如果不停的点就会不停的创建窗体,我想在前面
有判断的语句,如果已经存在了,就直接显示,没有则创建,请问如何判断?
我是新手
var
ZyglForm: TZyglForm;
begin
ZyglForm := TZyglForm.Create(self);
ZyglForm.Show;
end;
我是点击的时候才创建窗体,但有个问题是:如果不停的点就会不停的创建窗体,我想在前面
有判断的语句,如果已经存在了,就直接显示,没有则创建,请问如何判断?
我是新手
解决方案 »
- 急,急,急 受限用户进不了程序
- 怎么判断像素色是空
- 提问:windows下用Midas编写的三层系统在Kylix中有何替代方案 ?
- fastreport问题亟待解决!!(!!!!)
- 有没有产生多个连续的、同样的字符的函数
- 关于数据显示的问题
- 求高手。。。。每次都运行不了,错误提示:Tchart类找不到,TApdComPort类找不到,忽略以后就说找不到OoMisc.dcu
- 寻找VB编写OCX在DELPHI下使用的转换软件VBOCX2Delphi.exe
- 谁有delphi5下载的地方?
- 我好笨哦,连个124的0.782次方都算不出来...,指点一下吧
- 历史遗留问题 DBGrid中输入法的问题,求助!!!
- 在不知道主键约束名的情况下 怎么删除主键
for i := 0 to screen.forms.count - 1 do
if screen.forms[i] is tzyglform then
begin
zyglform := screen.forms[i] as tzyglform;
break;
end;
if zyglform = nil then
zyglform := tzyglform.create(self);
zyglform.show;
http://dn.codegear.com/article/22576
procedure TMainForm.N9Click(Sender: TObject);
begin
if ZyglForm=nil then ZyglForm := TZyglForm.Create(self);
ZyglForm.Show;
ZyglForm.BringToFront;
end;
--------------------------------------------------------------
type
TZyglForm=class(TForm)
...
private
{Private declarations}
procedure FormClose(Sender: TObject; var Action: TCloseAction);
end;var
ZyglForm: TZyglForm;
implementationprocedure TZyglForm.FormClose(Sender: TObject; var Action: TCloseAction);
begin
Action := cafree;
ZyglForm := nil;
end;
procedure TZyglForm.FormClose(Sender: TObject; var Action: TCloseAction);
begin
ZyglForm := nil;
Action := cafree;
end;
我接触DELPHI 不久.