Fórum Atualizar página do internet explorer #149130
24/03/2003
0
Olá galera,
eu quero fazer um programinha que atualiza a página que está aberta no internet explorer de 5 em 5 segundo será que alguém pode me dizer como faço isso :?:
desde já agradeço a todos.
eu quero fazer um programinha que atualiza a página que está aberta no internet explorer de 5 em 5 segundo será que alguém pode me dizer como faço isso :?:
desde já agradeço a todos.
Leandronanet
Curtir tópico
+ 0
Responder
Posts
24/03/2003
Marcelo Saviski
Encontrei este exemplo aqui no clube delphi
[color=blue:c3102883bb]
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.ClubeDelphi.com.br´);
end;
procedure TForm1.Button2Click(Sender: TObject);
begin
IEApp.GoBack;
end;
procedure TForm1.Button3Click(Sender: TObject);
begin
IEApp.GoForward;
end;
procedure TForm1.Button2Click(Sender: TObject);
begin
IEApp.Quit;
end;
var
Form1: TForm1;
IEApp: Variant;
implementation
{$R *.DFM}
Existem ainda alguns outros comandos que podem ser usados, tais como:
IEApp.Refresh; - Serve para atualizar o browser.
IEApp.Stop; - Serve para parar o browser.
IEApp.GoHome; - Serve para ir para a página inicial, que está configurada em seu browser.
IEApp.FullScreen := true; - Serve para exibir o browser, sem nenhuma barra de ferramenta.
IEApp.StatusText; := ´Qualquer texto´;[/color:c3102883bb]
Feito Por: Marco Antônio
[color=blue:c3102883bb]
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.ClubeDelphi.com.br´);
end;
procedure TForm1.Button2Click(Sender: TObject);
begin
IEApp.GoBack;
end;
procedure TForm1.Button3Click(Sender: TObject);
begin
IEApp.GoForward;
end;
procedure TForm1.Button2Click(Sender: TObject);
begin
IEApp.Quit;
end;
var
Form1: TForm1;
IEApp: Variant;
implementation
{$R *.DFM}
Existem ainda alguns outros comandos que podem ser usados, tais como:
IEApp.Refresh; - Serve para atualizar o browser.
IEApp.Stop; - Serve para parar o browser.
IEApp.GoHome; - Serve para ir para a página inicial, que está configurada em seu browser.
IEApp.FullScreen := true; - Serve para exibir o browser, sem nenhuma barra de ferramenta.
IEApp.StatusText; := ´Qualquer texto´;[/color:c3102883bb]
Feito Por: Marco Antônio
Responder
Gostei + 0
Clique aqui para fazer login e interagir na Comunidade :)