I
import
Unregistered / Unconfirmed
GUEST, unregistred user!
在程序中如何实现以下功能 1、让已打开的IE打开另一个指定的主页(地址在程序中指定)。
2、如何让正在打开的IE停止。(即停止按扭被按下的功能)。
3、在程序中如何关闭一个IE。
:DragonPC_???, 时间:2001-9-20 18:06:00
uses Comobj, ... ...
{...}
var
Form1: TForm1;
IEApp: Variant;
{...}
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('http://www.delphibbs.com');
end;
IE的其它的控制:
IEApp.GoForward
IEApp.GoBack
IEApp.GoHome
IEApp.Refresh
IEApp.Stop
IEApp.GoHome
IEApp.FullScreen := true;
IEApp.StatusText := 'My Status Text';
IEApp.Path := Show Path to IE
IEApp.FullName := Full Path to IE
IEApp.LocationURL := Get active Url
IEApp.quit;
2、如何让正在打开的IE停止。(即停止按扭被按下的功能)。
3、在程序中如何关闭一个IE。
:DragonPC_???, 时间:2001-9-20 18:06:00
uses Comobj, ... ...
{...}
var
Form1: TForm1;
IEApp: Variant;
{...}
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('http://www.delphibbs.com');
end;
IE的其它的控制:
IEApp.GoForward
IEApp.GoBack
IEApp.GoHome
IEApp.Refresh
IEApp.Stop
IEApp.GoHome
IEApp.FullScreen := true;
IEApp.StatusText := 'My Status Text';
IEApp.Path := Show Path to IE
IEApp.FullName := Full Path to IE
IEApp.LocationURL := Get active Url
IEApp.quit;