VPF::И сново TWebBrowser - Форум программистов

ScoDi

Дата 16.5.2005, 19:02 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 28
Регистрация: 17.11.2004

Репутация: нет
Всего: нет

Как в TWebBrowser узнать id элемента на котором кликнули мышкой?

December

Дата 18.5.2005, 19:01 (ссылка)

(нет голосов)

Загрузка ...

Antitheorist

Профиль
Группа: Участник
Сообщений: 4423
Регистрация: 14.8.2002
Где: Харьков

Репутация: 12
Всего: 57

Лови. В коде на ApplicationEvents.OnMessage осуществляется отображение атрибута ID у элемента, над которым в данный момент зависает грызун. Можно легко переделать под свои нужды.

Код


function GetIdUnderneath(gPoint:TPoint;gWB:TWebBrowser):string;
var
  TheDoc:IHTMLDocument2;
  cElement:IHTMLElement;
  cP:TPoint;
begin
result:='';
try
cP:=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);
except
end;//except;
end;//GetIdUnderneath


procedure TForm1.ApplicationEvents1Message(var Msg: tagMSG;
  var Handled: Boolean);
var
  cPoint:TPoint;
begin
if 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;

--------------------

Для друзей с винграда - скидки на разработку сайтов

ScoDi

Дата 23.5.2005, 17:09 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 28
Регистрация: 17.11.2004

Репутация: нет
Всего: нет

Цитата

procedure TForm1.ApplicationEvents1Message(var Msg: tagMSG;
var Handled: Boolean);

Я вот это не понимаю как применить smile

Как сделать что бы приложение отреагировало, на то что я нажал что то на TWebBrowsere?

December

Дата 23.5.2005, 17:22 (ссылка)

(нет голосов)

Загрузка ...

Antitheorist

Профиль
Группа: Участник
Сообщений: 4423
Регистрация: 14.8.2002
Где: Харьков

Репутация: 12
Всего: 57

Берёшь компонент TApplicationEvents, ляпаешь его на форму. У него есть событие OnMessage. Создаёшь для него обработчик. Он будет вызываться всякий раз, когда приложение получает сообщение - любое. В том числе и клик от мыши. Вот тут-то ты и вступаешь в игру со своим кодом для обработки положения курсора.
Ессно, можно еа ссылку и клавой нажать, но сообщения от клавы ловятся точно так же.

--------------------

Для друзей с винграда - скидки на разработку сайтов

ScoDi

Дата 23.5.2005, 18:03 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 28
Регистрация: 17.11.2004

Репутация: нет
Всего: нет

2December
Огромноё спасибо всё получилось!!! smile

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Delphi: ActiveX/СОМ/CORBA \| Следующая тема »