怪哉(10分)

procedure TForm1.Button1Click(Sender: TObject);<br>&nbsp;var<br>hwnd,h:longint;<br>begin<br>&nbsp;hwnd:=FindWindow(nil,pchar('form1'));<br>FindWindowEx(hwnd,h,nil,pchar('button1'));<br>edit1.Text:=inttostr(h);<br>edit2.text:=inttostr(Button1.handle);<br>end;<br><br>end.<br>两个文本框的数字怎么不同

注意:该按扭的句柄应该是API函数findwindowex的返回值,而不是存放在变量h中的!<br>将其中的一个语句FindWindowEx(hwnd,h,nil,pchar('button1'));改为下面的后两个文本框的数字就相同了!<br>.....<br>h:=findwindowex(hwnd,0,nil,pchar('button1'));<br>........<br>&nbsp;