Fórum Ajuda com ActiveForms #363380

é isso que você quer?




flw.

Assim,

1. Feche todos os projetos do Delphi;

2. Vá ao menu File >> New >> Other;

3. Escolha a guia ActiveX e então ActiveForm;

4. Preencha a caixa Active Form Wizard que se segue e, em seguida, clique em OK;

5. Deixe seu ActiveForm com uma aparência agradável;

6. No caso acima os componentes principais são o Label e Timer. Com eles fiz a seguinte programação no evento OnTimer do Timer:

procedure TMeuActiveForm.Timer1Timer(Sender: TObject);
begin
Label1.Caption := TimeToStr(Time);
end;

7. Essa é toda programação necessária para esse exemplo funcionar. Salve todas as unidades e de um nome a elas;

8. Antes de testá-lo vocês deve fazer uma configuração a mais. Para compilarmos esse ActiveX devemos, ao invés de acionar o Ctrl+F9 devemos ir no menu Project >> Web Deploy;

9. Aparecerá a seguinte caixa de diálogo, onde a primeira e a terceira caixas de texto determinam para onde será gerado os arquivos e a do meio o nome do host de destino, no meu caso ESTUDO, mas você pode substituir pelo nome do seu computador que roda um servidor de Internet ou por http://localhost. Preencha como o exemplo e depois dê Ok;

10. Salve novamente todos os arquivos e confira se tudo foi gerado como esperado.

11. Para acessar abra seu navegador de Internet e digite o endereço especificado na caixa anterior mais a nome da página HTML gerada pelo Delphi;

[i:969a279772]* [url=http://delphi.about.com/od/internetintranet/l/aa042099.htm]ActiveForms[/url[/i:969a279772]