Форум: "Начинающим";
Текущий архив: 2007.09.02;
Скачать: [xml.tar.bz2];
Вниз
Про 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 вся ветка
Форум: "Начинающим";
Текущий архив: 2007.09.02;
Скачать: [xml.tar.bz2];
Память: 0.46 MB
Время: 0.053 c
