Текущий архив: 2003.10.23;
Скачать: CL | DM;

Вниз

Как заменить стандартное меню Internet Explorera на своё   Найти похожие ветки 

← →
GreySerg   (2003-08-26 18:03) [0]

Как заменить стандартное меню Internet Explorera на своё
в компоненте TWebBrowser, когда открыт html документ?

---

← →
nikkie ©   (2003-08-26 18:54) [1]

Компонента TEmbeddedWB
событие OnShowContextMenu
http://www.euromind.com/iedelphi/

---

← →
GreySerg   (2003-08-27 11:22) [2]

а без использования компоненты ? используя стандартную TWebBrowser

---

← →
nikkie ©   (2003-08-27 14:28) [3]

посмотри как там сделано и сделай также.

---

← →
Тих   (2003-08-28 00:42) [4]

Ну... если поможет :) ...

1) Создать экземпляр Automation Object, реализующий IDispatch и перегружающий метод Invoke. В Invoke проверить DispId метода HTMLDocumentEvents2::oncontextmenu и вызвать свой обработчик.
2) Получить указатель на IHTMLBodyElement из WebBrowser.Document, из body получить IConnectionPointCOntainer, опросить Container на HTMLDocumentEvents2, получить указатель на IConnectionPoint, вызвать IConnectionPoint::Advise, передав в этот метод указатель на экземпляр объекта первого пункта.

---

← →
Rouse_ ©   (2003-08-28 02:31) [5]

Просто подключи к проекту данный юнит:

unit WbPopup;

interface

implementation

uses Windows,Controls,Messages,ShDocVw, Forms, frmMain;

var
HMouseHook:THandle;
Pop: Boolean;

function MouseProc(
nCode: Integer; // hook code
WP: wParam; // message identifier
LP: lParam // mouse coordinates
):Integer;stdcall;
var MHS:TMOUSEHOOKSTRUCT;
WC:TWinControl;
begin
Result:=CallNextHookEx(HMouseHook,nCode,WP,LP);
if nCode=HC_ACTION then
begin
MHS:=PMOUSEHOOKSTRUCT(LP)^;
if ((WP=WM_RBUTTONDOWN) or (WP=WM_RBUTTONUP)) then
begin
WC:=FindVCLWindow(MHS.pt);
if (WC is TWebBrowser) then
begin
Result:=1;
if (TWebBrowser(WC).PopupMenu<>nil) and (WP=WM_RBUTTONUP) then
begin
if Pop then Exit;
Pop := True;
TWebBrowser(WC).PopupMenu.Popup(MHS.pt.x,MHS.pt.y);
Pop := False;
end;
end;
end;
end;
end;

initialization

HMouseHook:=SetWindowsHookEx(WH_MOUSE,@MouseProc,HInstance,GetCurrentT hreadID);

finalization
try
UnhookWindowsHookEx(HMouseHook);
Sleep(100);
CloseHandle(HMouseHook);
except

end;
end.

Код взят уже не помню откуда, модифицирован, так как были явные грубые ошибки, но осталась еще одна, лениво искать (модуль мне всеравно не нужен) при закрытии программы иногда выдает ошибку (на CloseHandle(HMouseHook);), поэтому лучше назначить собственный обработчик ошибок.

Желаю успехов

---

Страницы: 1 вся ветка

Текущий архив: 2003.10.23;
Скачать: CL | DM;

Наверх

Память: 0.48 MB
Время: 0.028 c