Мастера DELPHI (документация, исходники, скачать)

Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

« предыдущая ветвь | форум | следующая ветвь »

TWebBrowser [D3, D4, D5, D6, D7, Win95/98, WinME, NT4]

Evgeniy_k © (2002-12-28 10:15:00)
Как запретить показывать Popup-меню? Обнуляю popupmenu, но показывается меню браузера. Как этого избежать?
Как запретить выделять текст, т.е. чтобы пользователь мог видеть текст (скролить его), но не мог скопировать?

Оливейра (2002-12-29 14:39:00) [1]
В коде HTML страницы пишем
<body onselectstart="javascript:return false" oncontextmenu="javascript:return false" >

См. MSDN.

Evgeniy_k (2002-12-29 13:40:00) [2]
Конечно, результат. Только вышенаписанное - это слишком длинно, можно и попроще, но как я забыл :(

Дмитрий К.К. (2002-12-29 12:50:00) [3]
Те красивость нужна или результат?

Evgeniy_k (2002-12-29 12:26:00) [4]
Сделал так:
...
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-28 10:40:00) [5]
http://www.delphikingdom.com/helloworld/demowb01.htm

Наверх

	« предыдущая ветвь \| форум \| следующая ветвь »