Como faço para aparecer um relógio em tela?
Caras, quero que meu formulário exiba a hora num Label. Para capturar a hora e a data do sistema é brabada, mas não consegui lançar um relógio em tela. Como façõ isso?
Valeu.
Diórgenes Tavares
Valeu.
Diórgenes Tavares
Diorgenes175
Curtidas 0
Respostas
Educdc
04/12/2003
vc tentou isso?
:arrow: Label1.Caption:=TimeToStr(time);
:arrow: Label1.Caption:=TimeToStr(time);
GOSTEI 0
Thiago Vidal
04/12/2003
Se ao dizer ´relógio em tela´ vc diz dentro do form, sua pergunta ja foi respondida. Eu uma vez precisei criar um relógio fora do form, e fiz da seguinte forma:
procedure TForm1.Timer1Timer(Sender: TObject);
begin
if not Assigned(Form2) then begin
Form2 := TForm.Create(Application);
with Form2 do begin
Top := 40;
Left := 40;
Width := 50;
Height := 20;
BorderStyle := bsNone;
Show;
end;
end;
Form2.Canvas.Rectangle(Form2.ClientRect);
Form2.Canvas.TextOut(5,5,TimeToStr(Time));
end;
Nao esqueca de colocar um TTimer no Form1, de declarar Form2: TForm na seçao private do Form1 e de destruir o Form2 no OnDestroy do Form1, ou quando nao quiser mais o relogio.
procedure TForm1.Timer1Timer(Sender: TObject);
begin
if not Assigned(Form2) then begin
Form2 := TForm.Create(Application);
with Form2 do begin
Top := 40;
Left := 40;
Width := 50;
Height := 20;
BorderStyle := bsNone;
Show;
end;
end;
Form2.Canvas.Rectangle(Form2.ClientRect);
Form2.Canvas.TextOut(5,5,TimeToStr(Time));
end;
Nao esqueca de colocar um TTimer no Form1, de declarar Form2: TForm na seçao private do Form1 e de destruir o Form2 no OnDestroy do Form1, ou quando nao quiser mais o relogio.
GOSTEI 0
Raylyalmeida
04/12/2003
Ola,
Caso queria usar data e hora utilize o código;
Panel1.Caption:=DateTosTr(Date)+TimeToStr(Time);
espero que tenha ajudado
[size=18:5f1a1cf5bc][color=blue:5f1a1cf5bc]Rayly Almeida
Rayscopion@bol.com.br[/color:5f1a1cf5bc][/size:5f1a1cf5bc]
Caso queria usar data e hora utilize o código;
Panel1.Caption:=DateTosTr(Date)+TimeToStr(Time);
espero que tenha ajudado
[size=18:5f1a1cf5bc][color=blue:5f1a1cf5bc]Rayly Almeida
Rayscopion@bol.com.br[/color:5f1a1cf5bc][/size:5f1a1cf5bc]
GOSTEI 0