如何获得form1的窗口句柄呢?
比如我想点击 Navigate 打开的一个网页里面的 300 × 200 的一个坐标
var
Gameh:HWND;
begin
Gameh:=FindWindow(nil,'TForm1' );
//模拟鼠标单击
SendMessage(Gameh,Messages.WM_LBUTTONDOWN,0,$0180017A);//按下
SendMessage(Gameh,Messages.WM_LBUTTONUP, 0, $0180017A);//抬起
我主要是不会获得窗口句柄
请教一下高手
[解决办法]
procedure TForm1.Button1Click(Sender: TObject);
begin
WebBrowser1.Navigate('http://www.csdn.net');
end;
procedure TForm1.Button2Click(Sender: TObject);
begin
//WebBrowser1.Perform(WM_CLOSE,1,1);
Sendmessage(Webbrowser1.Handle,WM_CLOSE,1,1);
end;
两种都行。
[解决办法]
哥们,其实你这样做有很多问题的,如窗体大小发生了变化等等,所以我提供给你另外一个思路:上网所有一下delphi自动登陆网页,会有一些代码是关于DELPHI使用IHTML的,绝对对你有用处。可以实现DELPHI获取网页中的对象并且实现相应操作的。