delphi에서 원소의 화면 위치 가져오기

597 단어 delphi
인증코드 새로 고침을 클릭해야 하므로 다음 코드와 같이 상대 화면의 위치를 가져와야 합니다.
var
doc:IHTMLDocument3;
ele2:IHTMLElement2;
p:TPoint;
begin
 doc:=WebBrowser1.Document as IHTMLDocument3;
 ele2:=doc.getElementById('captchaImg') as IHTMLElement2;            
 p.X:=ele2.getBoundingClientRect.left+20; //           
 p.Y:=ele2.getBoundingClientRect.top+15;
 p:=WebBrowser1.ClientToScreen(p);//          
 SetCursorPos(p.X,p.Y);     
 mouse_event(MOUSEEVENTF_LEFTDOWN,0,0,0,0);
 mouse_event(MOUSEEVENTF_LEFTUP,0,0,0,0);
end;

좋은 웹페이지 즐겨찾기