вообще есть более сложная версия обозревателя на базе TWebBrowser, и она все нормально обрабатывает, но там как то непонятно
Код:
procedure TfrmMyBrowser.btnGoClick(Sender: TObject);
begin
if edURL.Text <> '' then
begin
lvEventLog.Clear;
WB_Navigate(GetCurrentWB, edURL.Text);
// set focus to webbrowser document
WB_SetFocus(GetCurrentWB);
end;
end;
это маленький кусочек, относящийся к кнопке "загрузить"