Ver Mensaje Individual
  #2  
Antiguo 23-03-2010
BrunoBsso BrunoBsso is offline
Miembro
 
Registrado: nov 2009
Ubicación: Berisso, Buenos Aires, Argentina
Posts: 239
Reputación: 15
BrunoBsso Va por buen camino
Hola.
Para esta solución usé 2 botones TButton y un TTimer.
Los botones empiezan deshabilitados y el OnTimer decide si se habilitan.
Código Delphi [-]
procedure TForm1.Timer1Timer(Sender: TObject);
var
  Horario:TDateTime;
begin
  Button1.Enabled:=False;
  Button2.Enabled:=False;
  Horario:=GetTime;
  if (Horario >= StrToDateTime('08:00:00')) and (Horario <= StrToDateTime('19:59:59')) then
    Button1.Enabled:=True
  else
  if (Horario >= StrToDateTime('20:00:00')) and (Horario <= StrToDateTime('07:59:59')) then
    Button2.Enabled:=True;
end;
Ahora tenés una idea de cómo hacerlo.
Saludos!
Responder Con Cita