|
Платные хостинги
Раскрутка сайта
Книги по программированию
И сново TWebBrowser
- Как в TWebBrowser узнать id элемента на котором кликнули мышкой?
- Лови. В коде на ApplicationEvents.OnMessage осуществляется отображение атрибута ID у элемента, над которым в данный момент зависает грызун. Можно легко переделать под свои нужды.Код function GetIdUnderneath(gPoint:TPoint;gWB:TWebBrowser):string;var TheDoc:IHTMLDocument2; cElement:IHTMLElement; cP:TPoint;beginresult:='';trycP:=gWB.ScreenToClient(gPoint);TheDoc:=gWB.ControlInterface.Document as IHTMLDocument2;if not Assigned(TheDoc) then exit;cElement:=TheDoc.ElementFromPoint(cP.X,cP.Y);if not Assigned(cElement) then exit;result:=cElement.getAttribute('id',0);exceptend;//except;end;//GetIdUnderneathprocedure TForm1.ApplicationEvents1Message(var Msg: tagMSG; var Handled: Boolean);var cPoint:TPoint;beginif msg.message=WM_MOUSEMOVE then begin cPoint:=Form1.ScreenToClient(msg.pt); if not PtInRect(WebBrowser1.ClientRect,cPoint) then exit; label1.Caption:=GetIdUnderneath(msg.pt,WebBrowser1); end;end;highlightSyntax('delphiDdhYzk','delphi');
- Я вот это не понимаю как применить Как сделать что бы приложение отреагировало, на то что я нажал что то на TWebBrowsere?
- Берёшь компонент TApplicationEvents, ляпаешь его на форму. У него есть событие OnMessage. Создаёшь для него обработчик. Он будет вызываться всякий раз, когда приложение получает сообщение - любое. В том числе и клик от мыши. Вот тут-то ты и вступаешь в игру со своим кодом для обработки положения курсора.Ессно, можно еа ссылку и клавой нажать, но сообщения от клавы ловятся точно так же.
- 2DecemberОгромноё спасибо всё получилось!!!
Интернет казино
Онлайн игры
Увеличение члена
Купить DVD
|
