5,388
社区成员
发帖
与我相关
我的任务
分享请发表友善的回复…
发表回复
chengtwn 2004-08-26
- 打赏
- 举报
嗯，不错！
jinzhili 2004-08-26
- 打赏
- 举报
procedure OpenForm(FormClass:TFormClass;var fm;AOwner:TComponent);
var i:Integer;
Child:TForm;
begin
try
for i:=0 to Screen.FormCount-1 do
if Screen.Forms[i].ClassType=FormClass then
begin
Child:=Screen.Forms[i];
if Child.WindowState=wsMinimized then
ShowWindow(Child.Handle,3);
if (not Child.Visible) then Child.Visible:=true;
Child.BringToFront;
Child.SetFocus;
TForm(fm):=Child;
exit
end;
Child:=TForm(FormClass.NewInstance);
TForm(fm):=Child;
Child.Create(AOwner);
except
end;
end;
var i:Integer;
Child:TForm;
begin
try
for i:=0 to Screen.FormCount-1 do
if Screen.Forms[i].ClassType=FormClass then
begin
Child:=Screen.Forms[i];
if Child.WindowState=wsMinimized then
ShowWindow(Child.Handle,3);
if (not Child.Visible) then Child.Visible:=true;
Child.BringToFront;
Child.SetFocus;
TForm(fm):=Child;
exit
end;
Child:=TForm(FormClass.NewInstance);
TForm(fm):=Child;
Child.Create(AOwner);
except
end;
end;
lsh_ahjz 2004-08-26
- 打赏
- 举报
谢谢两位，好象风铃的方法很有效，就是我想要的这种效果，谢谢
zhoufanking 2004-08-26
- 打赏
- 举报
if not Assigned(form2) then //如果窗体不存在则创建窗体
form2:=TForm2.Create(application);
form2:=TForm2.Create(application);
kaguo 2004-08-26
- 打赏
- 举报
对Show 状态的窗体都是True
kaguo 2004-08-26
- 打赏
- 举报
if form2.Showing then
showmessage('asd')
showmessage('asd')
