![]() |
| ||
|
|
Новости |
Поиск |
FAQ |
Статьи |
Книги |
Новости VCL
| | Форумы ЧАТ |
Орешник |
|
| |||
| |||
« предыдущая ветвь | форум | следующая ветвь »
OnClick dlya webbrowser [D7, XP]
WebBrowser © (2007-08-24 11:58:00)Kak napisat' obrabotchik sobytiya OnClick dlya komponenta WebBrowser
alshtam (2007-08-24 13:55:00) [1]возможно сложновато, но работает и потомка классу создавать не надо:
заводим поле и метод
web: TWebBrowser;
oldWndProc:TWndMethod;
procedure NewWndProc(var Msg: TMessage);
следующий код должен выполнитсяя поместил его в сонструктор класса
oldWndProc:=web.WindowProc;
web.WindowProc:=NewWndProc;
ркализацияметода:
procedure Tmainn.NewWndProc(var Msg: TMessage);
begin
if (Msg.Msg=WM_LBUTTONDOWN)then
begin
// Ваш код реакция на клик
end;
oldWndProc(msg);
end;
WASM (2007-08-24 13:07:00) [2]
> WebBrowser (24.08.07 11:58)
http://www.delphimaster.ru/cgi-bin/forum.pl?n=18&id=1186835096
@!!ex (2007-08-24 12:14:00) [3]Уважайте форум - пишите по русски.
Если у вас нет русского языка - в интернете есть специальные сервисы переводящие транслит на русский.