Mudar a cor Painel automatico
Pessoal Boa Noite,
Como fazer que o painel mude de cor automatico, quando chegar uma determinada hora ?
exemplo quando o relogio do computador chegar as 14:00 hrs automaticamente a cor do painel mude para vermelho
Obrigado Deus abenço
Como fazer que o painel mude de cor automatico, quando chegar uma determinada hora ?
exemplo quando o relogio do computador chegar as 14:00 hrs automaticamente a cor do painel mude para vermelho
Obrigado Deus abenço
Watson Rocha
Curtidas 0
Respostas
Renato Rubinho
08/08/2014
Buenos,
Coloca um Timer no Form.
No onTimer, quando atingir a hora desejada, mude a cor.
Abraççç,
Renato
Coloca um Timer no Form.
No onTimer, quando atingir a hora desejada, mude a cor.
procedure Timer1Timer(Sender: TObject);
begin
if FormatDateTime('hh:nn',Now) >= '14:00' then
Panel1.Color := 'clRed';
end;
Abraççç,
Renato
GOSTEI 0