[DELPHI] Programa dizendo hora exata e bom dia

por **Fenix** Sáb Fev 20, 2010 9:05 pm

1° Adicione ao Form

2 Label
1 Timer

-> Mude o Interval do Timer para 1

Coloque o código no Timer:

Label1.Caption := TimeToStr(Time);
If (Label1.Caption >= '00:00:00') and (Label1.Caption <= '11:59:00') then begin
Label2.Caption := 'Bom dia!';
end else begin
If (Label1.Caption >= '12:00:00') and (Label1.Caption <= '17:29:00') then begin
Label2.Caption := 'Boa tarde!';
end else begin
If (Label1.Caption >= '17:30:00') and (Label1.Caption <= '23:59:00') then begin
Label2.Caption := 'Boa noite!';
end;
end;
end;