Delphi - TWebBrowser вопросы

Question

Два несложных вопросов

1. Как установить фокус на TWebBrowser? Это значит, что колесо мыши прокручивает дисплей, не нажимая сначала в области отображения TWebBrwoser. У этого есть метод setfocus, который ничего не делает (или, кажется, ничего не делает).

2. Внутри TWebBrowser щелкните правой кнопкой мыши по отображаемой ссылке и выберите свойства. Кнопки «ОК» и «Отмена» отключены, и вы не можете закрыть диалоговое окно. Вам нужно закончить задачу своего приложения, чтобы убить ее.

Любые идеи?

Thanks, Jason.

Answer 1

Ответ на вопрос 1 после много веб-охоты ....

with WebBrowser1 do 
if Document <> nil then 
with Application as IOleobject do 
DoVerb(OLEIVERB_UIACTIVATE, nil, WebBrowser1, 0, Handle, GetClientRect); 

Answer 2

Это описано в следующей статье Питера Джонсона, How to make a TWebBrowser become the active control when clicked.

Резюмируя сильно, добавьте OnCommandStateChange событие:

procedure TWebBrowserFrame.CommandStateChange(Sender: TObject; 
    Command: Integer; Enable: WordBool); 
var 
    Doc: IHTMLDocument2;  // document object 
    Sel: IHTMLSelectionObject; // current selection 
begin 
    // Check we have a valid web browser triggering this event 
    if not Assigned(Sender) or not (Sender is TWebBrowser) then 
    Exit; 
    // Check we have required command 
    if TOleEnum(Command) <> CSC_UPDATECOMMANDS then 
    Exit; 
    // Get ref to document object and check not nil 
    Doc := Browser.Document as IHTMLDocument2; 
    if not Assigned(Doc) then 
    Exit; 
    // Get ref to current selection 
    Sel := Doc.selection as IHTMLSelectionObject; 
    // If selection is of correct type then we have a mouse click 
    if Assigned(Sel) and (Sel.type_ = 'Text') then 
    begin 
    // Make the web browser the form's active control 
    (Sender as TWebBrowser).SetFocus; 
    Doc.parentWindow.focus; 
    end; 
end; 

Существует много более подробно в статье, пожалуйста, убедитесь, что вы прочитали все это.