Вниз
Скачать: 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.011 c
3-63549
Cossys
2003-02-03 16:23
2003.02.20
Как быстро заполнить поля таблицы


3-63492
Raz
2003-02-04 18:17
2003.02.20
Про печать TQuickRep.Print


6-63703
Mischka
2002-12-17 14:49
2003.02.20
LAN tracert 192.168.14.133


3-63519
asd
2003-02-02 23:08
2003.02.20
как через дельфи в 1с в справочник добавить элемент


14-63843
copyr25
2003-02-04 19:37
2003.02.20
Иррациональная сила искусства.




   Наверх