(Resolvido) Link e Relogio

[Blackleaf]

Eu gostaria de saber como faço para fazer um relogio digital (o que aparece só os nºs).

Eu tambem gostaria de saber como que faz um botão com link para algum site específico, com o navegador padrão. porque eu só acho tutoriais que ensinam a abrir um site pelo internet explorer.

[vms]

Eu gostaria de saber como faço para fazer um relogio digital (o que aparece só os nºs).

procedure TForm1.Timer1Timer(Sender: TObject);
begin
Label1.Caption:=FormatDateTime('hh:nn:ss',Time);
end;

esse eu nunca testei

Chamando um site utilizando o seu browse padrão 
uses UrlMon; 
procedure TForm1.Button1Click(Sender: TObject); 
begin 
HlinkNavigateString(nil,'http://users.sti.com.br/sartel'); 
end;

[Blackleaf]

Muito bom, vlw.

Esse forum é bom mesmo ;)

E só mais uma coisinha:

alguém pode me dizer como faço para começar a rodar um tempo assim q eu clico em um botão?

[vms]

procedure TForm1.Button1Click(Sender: TObject);
begin
Timer1.Enabled:=true;
end;

[Blackleaf]

você não entedeu, eu quero um botão q quando eu clicar ele começa a contar um tempo desde 00:00:00

[Jhonas]

eu quero um botão q quando eu clicar ele começa a contar um tempo desde 00:00:00

Exemplos :

// Cronômetro:
var
  Form1: TForm1;
  seg,seg2,acum,a:integer;
implementation

{$R *.DFM}

procedure TForm1.Timer1Timer(Sender: TObject);
begin
seg:=strtoint(copy(timetostr(time),8,1));
seg:=acum;
if seg = acum then begin
   a:=a+1;
   label1.caption:=inttostr(a);
   if a=60 then a:=0;
end;
label2.caption:=timetostr(time)
end;

procedure TForm1.BotaoStartClick(Sender: TObject);
begin
timer1.interval:=950;
end;

Outros Exemplos:

http://geocities.yahoo.com.br/acropoledelphi/Crn.zip

http://www.qualyinf.com.br/forum/delphi/me...s2004/3514.html

http://www.mail-archive.com/delphi-br@yaho...r/msg37828.html

http://www.forum.clickgratis.com.br/mentehacker/t-18.html

abraço

[Blackleaf]

Funcionou certinho.

Editado Abril 26, 2008 por Micheus
Removido questionamento que foi postado em novo tópico: Abrindo executavel.