uses Comobj;
{...}var
Form1: TForm1;
IEApp: OLEVariant;
implementation{$R *.DFM}procedure TForm1.Button1Click(Sender: TObject);
begin
IEApp := CreateOLEObject("InternetExplorer.Application");
IEApp.Visible := True;
IEApp.Top := 0;
IEApp.Left := 0;
IEApp.Width := Screen.Width;
IEApp.Height := Screen.Height;
IEApp.Navigate("?wurl=www.swissdelphicenter.ch");
end;
{
To Close the Internet Explorer:
Um Internet Explorer beenden:
}
IEApp.Quit;
{
Some other methods:
Einige andere Methoden:
}
IEApp.GoForward
IEApp.GoBack
IEApp.GoHome
IEApp.Refresh
IEApp.Stop
IEApp.GoHome
IEApp.FullScreen := true;
{
To set some Properties:
Einige Eigenschaften setzen:
}
IEApp.StatusText := "My Status Text";
{
IEApp.Path = Show Path to IE, Pfad anzeigen
IEApp.FullName = Full Path to IE, voller Pfad zum IE
IEApp.LocationURL = Get active Url, Aktuelle URL
}
Если Вас заинтересовала или понравилась информация по разработке на Delph - "Контролирование IE при помощи OLE", Вы можете поставить закладку в социальной сети или в своём блоге на данную страницу: Так же Вы можете задать вопрос по работе этого модуля или примера через форму обратной связи, в сообщение обязательно указывайте название или ссылку на статью!