Inicie o Delphi e crie uma nova aplicação,Insira no formulário 4 Tbuttons. Coloque na propriedade caption do Button1 "Iniciar" e no evento OnClick, insira o seguinte código:}
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.url.com.br');
end; {Explicando o código: Tenho certeza de que você já notou a facilidade do código. Ele cria uma aplicação do tipo Internet Explorer, e atribui algumas propriedades. Essas propriedades servem para informar que o navegador deve estar visível, informar a posição onde será criado o browser, o tamanho da tela e o endereço que ele vai abrir.
Coloque na propriedade caption do Button2 "Voltar" e no evento OnClick, insira o seguinte código:}
procedure TForm1.Button2Click(Sender: TObject);
begin
IEApp.GoBack;
end; {Explicando o Código: O Botão irá funcionar como o próprio botão Voltar do Browser.
Coloque na propriedade caption do Button3 "Avançar" e no evento OnClick, insira o seguinte código:}
procedure TForm1.Button3Click(Sender: TObject);
begin
IEApp.GoForward;
end; {Explicando o Código: O Botão irá funcionar como o próprio botão Avançar do Browser.
Coloque na propriedade caption do Button4 "Fechar" e no evento OnClick, insira o seguinte código:}
procedure TForm1.Button2Click(Sender: TObject);
begin
IEApp.Quit;
end; {Explicando o Código: Este botão irá fechar o browser.
Agora, insira a Unit Comobj na parte de uses lá em cima no código, depois adicione a variável IEApp do tipo Variant na parte de declaração de variáveis onde está declarado o formulário:}
var
Form1: TForm1;
IEApp: Variant; implementation
{$R *.DFM}
{Agora salve e execute a sua aplicação e comece a controlar o nosso Internet Explorer.
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';
Assinar:
Postar comentários (Atom)
Nenhum comentário:
Postar um comentário