FindWindow查找活动窗体的问题！(200分)

coonlee · 2003-05-10

procedure TForm1.Button1Click(Sender: TObject); var   MyHWND: HWND; begin   MyHWND := FindWindow('TForm2', 'Form2');   if (MyHWND <> 0) then     Application.CreateForm(TForm2, Form2);     Form2.Show; 其中，Form2已经设定为非自动创建窗体，但是每次在执行第一句的时候得到的MyHWND 不是0。这是为什么？我将第一个或第二个参数替换为nil，得到的结果也是相同的！ 着急！在线等！！！ end;

张无忌 · 2003-05-10

Application有个方法可以看当前的Form列表，用他做比较好把

一少 · 2003-05-10

你要实现什么？是根据本窗口是否存在决定创建吗？如果是这样的话用 if not Assigned(form2) then     Application.CreateForm(TForm2, Form2);     Form2.Show; 在form2 的onclose事件中写入 form2 := nil;

cwmdelpher · 2003-05-10

procedure TForm1.Button1Click(Sender: TObject); var   MyHWND: HWND; begin   MyHWND := FindWindow('TForm2', 'Form2');   if (MyHWND = 0) then     Application.CreateForm(TForm2, Form2);     Form2.Show

jacke_chen · 2003-05-10

var handle_1:HWND; begin     handle_1:=FindWindow(nil,'标题名');     if handle_1<>0 then　　//存在     SendMessage(handle_1,WM_CLOSE,0,0);     close;       end;

coonlee · 2003-05-10

To一少： 你说的方法我知道，但是我不想用Assigned方法。 用FIndWindow不能实现吗？ 另To cwmdelpher: 实在不好意思，我一开始贴代码的时候弄错了，应该是等号不是不等号。即你的代码与我 的是一样的。可是这样做，即使在Form2没有被创建的情况下，MyHwnd也不是0。

coonlee · 2003-05-10

To张无忌： 你说的方法我已经找到，用Application.FindComponent函数可以实现。但是用FindWindow 就不行了吗？钻牛角尖中。。。

小笨苯 · 2003-05-10

说几句题外话，我对FindWindow这个函数向来就没有“好印象”，不论是窗口类，还是窗口 标题栏的文字，判断起来都有很大的不确定性，太有可能和别的窗口重复了。楼主就不要再 钻牛角尖了。[

]

coonlee · 2003-05-10

好吧，TNND，看来FindWindow不是头好牛。。。

FindWindow查找活动窗体的问题！(200分)

coonlee

Unregistered / Unconfirmed

张无忌

Unregistered / Unconfirmed

一少

Unregistered / Unconfirmed

cwmdelpher

Unregistered / Unconfirmed

jacke_chen

Unregistered / Unconfirmed

coonlee

Unregistered / Unconfirmed

coonlee

Unregistered / Unconfirmed

小笨苯

Unregistered / Unconfirmed

coonlee

Unregistered / Unconfirmed

Similar threads