Несколько вопросов о TWebBrowser
Привет всем!
У меня тут несколько вопросов про TWebBrowser есть:
1. Как отключить стандартное контекстное меню?
2. Как сделать так чтобы при открытии новой страницы TWebBrowser не издавал звука?
3. Как сделать так чтобы при открытии новой страницы TWebBrowser автоматически переходил в конец страницы?
4. Как сохранить содержимое TWebBrowser в .mht файл?
Заранее благодарю!
У меня тут несколько вопросов про TWebBrowser есть:
1. Как отключить стандартное контекстное меню?
2. Как сделать так чтобы при открытии новой страницы TWebBrowser не издавал звука?
3. Как сделать так чтобы при открытии новой страницы TWebBrowser автоматически переходил в конец страницы?
4. Как сохранить содержимое TWebBrowser в .mht файл?
Заранее благодарю!
2. Просто в винде убрать звук если он есть... можно программно если это нужно.
3. После загрузки документа проскролить его вниз
с использованием:
// Scroll to the Bottom, Top, Right of the Document:
type
TWBPosition = (wbPosBottom, wbPosTop, wbPosRight);
function WB_ScrollTo(WB: TWebBrowser; Position: TWBPosition): Boolean;
var
ParentW: OLEVariant;
begin
Result := WB.Document <> nil;
if Result then
begin
ParentW := WB.OleObject.Document.ParentWindow;
case Position of
wbPosBottom: ParentW.ScrollTo(0, ParentW.Screen.Height);
wbPosTop: ParentW.ScrollTo(0, 0);
wbPosRight: ParentW.ScrollTo(ParentW.Screen.Width, 0);
end;
end;
4. Надо поискать .. чуть позже напишу...
3. После загрузки документа проскролить его вниз
с использованием:
// Scroll to the Bottom, Top, Right of the Document:
type
TWBPosition = (wbPosBottom, wbPosTop, wbPosRight);
function WB_ScrollTo(WB: TWebBrowser; Position: TWBPosition): Boolean;
var
ParentW: OLEVariant;
begin
Result := WB.Document <> nil;
if Result then
begin
ParentW := WB.OleObject.Document.ParentWindow;
case Position of
wbPosBottom: ParentW.ScrollTo(0, ParentW.Screen.Height);
wbPosTop: ParentW.ScrollTo(0, 0);
wbPosRight: ParentW.ScrollTo(ParentW.Screen.Width, 0);
end;
end;
4. Надо поискать .. чуть позже напишу...