Вызов процедуры открыть в новой вкладке по Enter.

[КатяСаша]

Всем привет. Есть процедура:

procedure TForm1.WebBrowser1NewWindow2(ASender: TObject; var ppDisp: IDispatch; var Cancel: WordBool);
begin
  ppDisp := Webbrowser2.DefaultDispatch;
  PageControl1.ActivePage := TabSheet2;
end;

Пытаемся вызвать её по нажатию на Enter, но не понимаем над каким объектом работаем.

procedure TForm1.WebBrowser1Enter(Sender: TObject);
begin
 TForm1.WebBrowser1NewWindow2(Sender);
end;

[КатяСаша]

Застряли на моменте когда нужно перейти на ссылку выбранную tab-ом в webbrowser.... при нажатии на Enter этого не происходит. Посоветуйте пожалуйста какое-нибудь решение ...

[northener]

Обработчик TWinControl.OnEnter (в данном случае WebBrowser1Enter) не имеет никакого отношения к нажатию клавиши Enter.

К нажатию клавиши Enter имеют отношения обработчики OnKeyDown, OnKeyUp и OnKeyPress. Выбирайте какое вам более подходит.