seleccionar hora en datetimepicker desde hora especifica

[gonza_619]

hola a todos, miren necesito seleccionar una hora de inicio y hora final, pero q este en el rango por ej: desde 5 pm hasta 8 pm, y que no salga de ese rango, es decir puedo seleccionar desde 6 pm hasta 7pm, q no pase de 8 y menos de 5. segun cambie el estado de una variable, osea si por ej, la variable X=1 entonces q el dtpker se habilite para seleccionar hora entre las 5 y las 8 pm.
O que el dtpcker empieze desde una hora especifica no se si sera algo como:
if x=1 then
datetimepicker1.time:=5:0:0 p.m.

tambien queria saber como ver solo la hora y minutos y no los segundos en 24hs.
muchas gracias

[gonza_619]

Empezado por gonza_619

hola a todos, miren necesito seleccionar una hora de inicio y hora final, pero q este en el rango por ej: desde 5 pm hasta 8 pm, y que no salga de ese rango, es decir puedo seleccionar desde 6 pm hasta 7pm, q no pase de 8 y menos de 5. segun cambie el estado de una variable, osea si por ej, la variable X=1 entonces q el dtpker se habilite para seleccionar hora entre las 5 y las 8 pm.
O que el dtpcker empieze desde una hora especifica no se si sera algo como:
if x=1 then
datetimepicker1.time:=5:0:0 p.m.

tambien queria saber como ver solo la hora y minutos y no los segundos en 24hs.

bueno creo q me voy a decidir en guardar la hora pero cambiando dtpicker.format= HH:mm en un campo string seria algo asi?

tablex.fieldbyname('hora').asstring:=timetostr(dtpicker1.time);

estaria bien esta forma?

muchas gracias

gracias de nuevo

[*Caro*]

Hola gonza, puedes utilizar el evento OnChange de tu DateTimePicker:

El formato de tu DateTimePicker HH:MM.

procedure TForm1.DateTimePicker1Change(Sender: TObject);
var
 HoraAct : Integer;
begin
 HoraAct := HourOf(DateTimePicker1.Time);
 //si no esta entre las 17 y 20 horas o la hora ini es mayor que la hora fin, le ponemos la hora con la que empieza el rango
 if Not((HoraAct>=17) and (HoraAct<=20)) or (CompareTime(DateTimePicker1.Time,DateTimePicker2.Time)=1) Then
  DateTimePicker1.Time := EncodeTime(17,MinuteOf(DateTimePicker1.Time),0,0);

algo parecido para tu segundo DateTimePicker que indica la hora final

Saluditos

[gonza_619]

hola de nuevo , bueno mira sale de 10, pero ahora , tengo que comrpboar con un checked si se selecciono hora en dtpicker, lo que hice fue agregar showcheckbox, y luego checked en false. al parecer no funciona si cambio a formato 24 hs, no me deja seleccionar el dtpicker, como podria solucionarlo

[ecfisa]

Hola gonza.

Si pones la propiedad ShowCheckBox en True y la propiedad Checked está en False no te va a permitir hacer cambios.
Esta esta última propiedad es la que te permite o no, realizar cambios.

Para despejar toda duda relizá esta prueba:

Código Delphi [-]
procedure TForm1.FormShow(Sender: TObject);
begin
  with DateTimePicker1 do
  begin
    Kind:= dtkTime;     
    Format:= 'HH:mm:ss';   // formato 24 hs
    ShowCheckBox:= True;   // mostrar casilla de verificación
    DateTimePicker1.Checked:= True; // el componente está seleccionado 
  end;
end;

Verás que si hacés click sobre la hora, minutos o segundos te permite realizar los cambios sin problemas.

Saludos.