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

Про 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;

---

← →
Ivolg ©   (2007-08-12 14:07) [8]

WASM   (12.08.07 08:47) [7]

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

---

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

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



Память: 0.46 MB
Время: 0.013 c