得到窗体的Handle后，如何显示显示出该窗体(show)？ ( 积分: 50 )

newdreamer · 2005-02-10

var  form:Tform2; begin    form:=Tform2.Create(Application);    form.Name:=trim(edit1.Text);    form.Caption:=trim(edit1.Text);    form.Show; end; 然后用：   Tform2(edit1.text).show; //一执行就出错。 请问该如何实现呢？

newdreamer · 2005-02-10

var  form:Tform2; begin    form:=Tform2.Create(Application);    form.Name:=trim(edit1.Text);    form.Caption:=trim(edit1.Text);    form.Show; end; 然后用：   Tform2(edit1.text).show; //一执行就出错。 请问该如何实现呢？

gooodlife · 2005-02-10

Tform2(edit1.text).show ???????????? 这个是什么来的? Tform2() 表示的意思应该是强制类型转换吧? Edit1.text 不是一个 TForm的控件啊

chinaandys · 2005-03-01

(FindComponent(Edit1.text) as TForm).show;

hotboys · 2005-03-01

你是要form.show還是form2.show嘛？還是要別的什麼？ Tform2(edit1.text)是肯定出錯的了。

huyongxiao · 2005-03-01

chinaandys说的应该可以

weekboy · 2005-03-01

如你标题所问! ShowWindow(Handle,SW_SHOW);

SmallGhost · 2005-03-01

看不懂!

我要学 · 2005-03-04

TO weekboy 有一点不懂,用你的方法显示一次后就显示不来了,要再次开启程序,又可显示一次. Y procedure TForm1.Button1Click(Sender: TObject); VAR Handle:THandle; begin Handle:=0; Handle := FindWindowEx(0, Handle, '#32770','QQ2004查找/添加好友'); IF (Handle&lt;&gt;0) THEN ShowWindow(Handle,SW_SHOW); end; end. 点击第二次就没用了,

得到窗体的Handle后，如何显示显示出该窗体(show)？ ( 积分: 50 )

newdreamer

Unregistered / Unconfirmed

newdreamer

Unregistered / Unconfirmed

gooodlife

Unregistered / Unconfirmed

chinaandys

Unregistered / Unconfirmed

hotboys

Unregistered / Unconfirmed

huyongxiao

Unregistered / Unconfirmed

weekboy

Unregistered / Unconfirmed

SmallGhost

Unregistered / Unconfirmed

我要学

Unregistered / Unconfirmed

Similar threads