Сборник лабораторных работ по дисциплине "Прикладное программное обеспечение". Самохвалов К.М. - 34 стр.

UptoLike

ВУЗ: 

УлГТУ | Ульяновск

Составители: 

Рубрика: 

34
форму, в нижней части формы создаем панель, на которой располагаем
ComboBox для вввода URL, слева от нее соответствующий Label, справа
кнопку «Go». Разместим также главное действующее лицо TWebBrowser над
панелью. Дадим имена нашим компонентам (например, ComboBox можно
назвать «selUrl»), проставим соответствующие опции выравнивания. Созда-
дим обработчик нажатия на кнопку «Go»:
procedure TFormSimpleWB.btGoClick(Sender: TObject);
var
_URL, Flags, TargetFrameName, PostData, Headers: Olevariant;
begin
_URL := selUrl.Text;
Flags := 0;
TargetFrameName := 0;
Postdata := 0;
Headers := 0;
WebBrowser1.Navigate2(_URL, Flags, TargetFrameName, PostData,
Headers);
end;
Метод Navigate. Этот метод дает команду WebBrowser начать навига-
цию к указанному ресурсу. Синтаксис этого метода следующий:
procedure Navigate(const URL: WideString; var Flags: OleVariant;
var TargetFrameName: OleVariant; var PostData: OleVariant;
var Headers: OleVariant); overload;
Здесь URL – адрес навигации.
Для значения Flags определены такие константы:

Страницы