Cojer hora del Sistema

[rolando_s]

Posteado originalmente por UTECYBER
Empeze igual que tu, pero de verdad te recomiendo que practiques, Tu problema lo puedes resolver con esto.

Deposita un componente llamado StatusBar1[ (se encuentra en la pestaña Win32)] en el FormPrincipal.

Luego deposita un Componente llamado Timer{Esta en la pestaña Sistem}...

En el evento Ontimer, del componente timer introduce el siguiente codigo...

____________________________________________
procedure TFprincipal.Timer1Timer(Sender: TObject);
____________________________________________
begin
StatusBar1.Panels[0].Text:=FormatDateTime('dddd d yyyy mmmm "Son Las" HH:MM:SS',Now);
end;

Espero que te sirva.

Atte.Utecyber
Con la practica se aprende la inteligencia de la programacion.
procedure TForm1.FormActivate(Sender: TObject);
var
DateTime : TDateTime;
str : string;
begin
DateTime := Time;
str := TimeToStr(DateTime);
label1.caption:=str;
DateTime := Date;
str := DateToStr(DateTime);
label2.caption:=str;
end;