Про WebBrowser

← →
Ivolg © (2007-08-11 16:24) [0]

Как в этом компоненте отключить стандартное меню браузера, и игрнорировать сообщения от кнопок клавы. Т.е мне нужно чтобы WebBrowser просто показывал содержимое html файла. Спасибо !

← →
Anatoly Podgoretsky © (2007-08-11 16:42) [1]

> Ivolg (11.08.2007 16:24:00) [0]

Для показа содержимого более подходит блокнот, сам ИЕ так поступает.

← →
Ivolg © (2007-08-11 16:53) [2]

Наверно не так выразился)) Мне необходимо показывать html станицу, но чтобы при это можно было только смотреть. Чтобы пользователь не смог открыть стандартное меню ИЕ и не управлял им с клавиатуры. Может есть другие компоненты ля этой задичи ?

← →
Alarm © (2007-08-11 17:20) [3]

>Ivolg © (11.08.07 16:24)
uses shdocvw;
....

wb := TWebBrowser.Create(Form1);
TWinControl(wb).Name := "MyWebBrowser";
TWinControl(wb).Parent := Form1;
wb.Align := alClient;
wb.Navigate("index.html");

← →
Anatoly Podgoretsky © (2007-08-11 17:26) [4]

> Ivolg (11.08.2007 16:53:02) [2]

WebBrowser позволяет сделать все, что и ИЕ, поскольку пользуются одними и теми же библиотеками.

← →
Ivolg © (2007-08-11 19:03) [5]

Alarm © (11.08.07 17:20) [3]

Проблема не в открытии html файла, а в том чтобы непоказывать стандартное контекстное меню ИЕ !

Anatoly Podgoretsky © (11.08.07 17:26) [4]

Я в курсе :)

← →
Wood (2007-08-12 06:28) [6]

http://delphiworld.narod.ru/_internet_.html
> Ivolg © (11.08.07 19:03) [5]

Большинство ответов на вопросы можно взглянуть здесь
http://delphiworld.narod.ru/_internet_.html

← →
WASM (2007-08-12 08:47) [7]

На форму кидаете TApplicationEvents

procedure TForm1.ApplicationEvents1Message(var Msg: tagMSG; var Handled: Boolean); begin if (Msg.Message = WM_RBUTTONUP) then begin //PopupMenu if IsChild(WB.Handle, Msg.hwnd) then begin PopupMenu1.Popup(Mouse.CursorPos.X, Mouse.CursorPos.Y + 2); Handled := True; end; end; //Клавиатура if (GetKeyState(VK_CONTROL) < 0) and (Msg.Message = WM_KEYDOWN) and (Msg.wParam = Ord("N")) then begin Handled := True; end; end;

WASM (12.08.07 08:47) [7]

Большое спасибо ! Этот вариант мне подошел )

Про WebBrowser Найти похожие ветки