Como faço para aparecer um relógio em tela?
04/12/2003
0
Valeu.
Diórgenes Tavares
Diorgenes175
Posts
05/12/2003
Thiago Vidal
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.
20/02/2004
Raylyalmeida
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]
Clique aqui para fazer login e interagir na Comunidade :)