请教大家这个问题出在哪里？(8分)

delphiboy · 2004-04-29

procedure TForm1.N3Click(Sender: TObject); begin   if findwindow('TTj_Form','报表生成器')=0 then   begin     application.CreateForm(TTj_Form,Tj_Form);     Tj_Form.show ;   end else   begin     Tj_Form.Position :=poMainFormCenter ;     SetActiveWindow(findwindow('TTj_Form','报表生成器'));   end; end; 我的目的是防止一个窗体出现多次，但为什么这样不行？

TYZhang · 2004-04-29

procedure TForm1.N3Click(Sender: TObject); begin   if findwindow(nil,'报表生成器')=0 then   begin     application.CreateForm(TTj_Form,Tj_Form);     Tj_Form.show ;   end else   begin     Tj_Form.Position :=poMainFormCenter ;     SetActiveWindow(findwindow(nil,'报表生成器'));   end; end;

delphiboy · 2004-04-29

不行啊，这样会报错。

zhangpanfeng · 2004-04-29

为什么不这样用啊，我改了改； //if findwindow(nil,'tj_form')=0 then   if tj_form=nil then   begin     application.CreateForm(TTj_Form,Tj_Form);     Tj_Form.show ;   end else   begin     tj_form.BringToFront;     //Tj_Form.Position :=poMainFormCenter ;     //SetActiveWindow(findwindow(nil,'tj_form'));   end; ***********要引用tj_form的单元。

kouchun · 2004-04-29

if not assigned(Tj_Form) then   begin     application.CreateForm(TTj_Form,Tj_Form);     Tj_Form.show ;   end   else   begin     tj_form.BringToFront;   end; end;

delphiboy · 2004-04-30

多谢大家回答，ASSIGNED（）的确可以，但是FINDWINDOW（）为什么就不可以呢？

请教大家这个问题出在哪里？(8分)

delphiboy

Unregistered / Unconfirmed

TYZhang

Unregistered / Unconfirmed

delphiboy

Unregistered / Unconfirmed

zhangpanfeng

Unregistered / Unconfirmed

kouchun

Unregistered / Unconfirmed

delphiboy

Unregistered / Unconfirmed

Similar threads