Вниз
Скачать: CL | DM;

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]

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


 
Оливейра ©   (2002-12-29 14:39) [5]

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

См. MSDN.



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

Скачать: CL | DM;



Память: 0.46 MB
Время: 0.012 c
4-63902
nsvi
2003-01-09 15:13
2003.02.20
Как получить список доступных фонтов?


14-63823
Serd_hhc
2003-02-03 12:25
2003.02.20
Какую максимальную гадость мона сделать врагу?


1-63606
Наташа
2003-02-11 12:17
2003.02.20
OnClick


14-63751
aga
2003-02-05 20:55
2003.02.20
Принять


14-63832
ZeroDivide
2003-02-03 13:44
2003.02.20
Группа крови на рукаве, мой порядковый IP на рукаве.




   Наверх