TWebBrowser

← →
Evgeniy_k (2002-12-28 10:15) [0]

Как запретить показывать Popup-меню? Обнуляю popupmenu, но показывается меню браузера. Как этого избежать?
Как запретить выделять текст, т.е. чтобы пользователь мог видеть текст (скролить его), но не мог скопировать?

← →
Дмитрий К.К. © (2002-12-28 10:40) [1]

http://www.delphikingdom.com/helloworld/demowb01.htm

← →
Evgeniy_k (2002-12-29 12:26) [2]

Сделал так:
...
procedure WBMouseActivate(var Msg: TMessage); message WM_MOUSEACTIVATE;
...

procedure TForm1.WBMouseActivate(var Msg:TMessage);
begin
try
inherited;
//Проверка нажатых батонов мыши
if (Msg.LParamHi = 516) or (Msg.LParamHi = 513) then
//Проверка координат клика
if (Mouse.CursorPos.X>=Form1.Left+Browser.Left) and (Mouse.CursorPos.X<=Form1.Left+Browser.Left+Browser.Width) and (Mouse.CursorPos.Y>=Form1.Top+Browser.Top) and (Mouse.CursorPos.Y<=Form1.Top+Browser.Top+Browser.Height) then
Msg.Result:= MA_NOACTIVATEANDEAT;
except
//Раздел обработчиков исключительных ситуций
end;
end;

Кто-нибудь может предложит что-нибудь покрасивее?

← →
Дмитрий К.К. © (2002-12-29 12:50) [3]

Те красивость нужна или результат?

← →
Evgeniy_k (2002-12-29 13:40) [4]

Конечно, результат. Только вышенаписанное - это слишком длинно, можно и попроще, но как я забыл :(

В коде HTML страницы пишем
<body onselectstart="javascript:return false" oncontextmenu="javascript:return false" >

См. MSDN.

TWebBrowser Найти похожие ветки