Formato MaskEdit

[Buelos]

hola, agradezco me puedan colaboran con una duda que tengo, tengo un control de tipo mask edit por medio del cual manejo la hora ingresada por el usuario, en el edit mask tengo el formato del edit como short time pero necesito si alguien sabe como hago para que en el espacio de minutos no me acepte mas de 59 y en el de hora no mas de 23, les agradezco su colaboracion cuidense chao.

[cloayza]

Prueba este codigo, ami me funciona muy bien.

Código Delphi [-]
procedure TForm1.MaskEdit1Exit(Sender: TObject);


     Function IsTimeValid(Const ATime:String;Const AShowError:Boolean):Boolean;
     Var
        Hora,Minutos:string;
        Code,Value,iError:integer;
     Begin
          Hora   :=Copy(ATime,1,Pos(':',ATime)-1);
          Minutos:=Copy(ATime,Pos(':',ATime)+1,Length(ATime));
          iError:=0;
          Val(Hora,Value,Code);

          If Not ((Code=0) And (Value>=0) and (Value<=23)) Then
             iError:=1;

          Val(Minutos,Value,code);
          If Not ((Code=0) And (Value>=0) And (Value<=59)) Then
             Inc(iError,2);

          If AShowError Then
          Begin
               Case (iError) Of
                    1,3: ShowMessage('Hora invalida...');
                    2: ShowMessage('Minutos invalidos...');
               End;
          End;
          Result:=(iError=0)
     End;

begin
     If Not IsTimeValid(MaskEdit1.Text,True) Then
        MaskEdit1.SetFocus;
end;

Saludos desde
Concepcion-Chile

[[Lepe]]

¿no puedes usar un TdateTimePicker? ya hace todo eso internamente y mostrará un calendario.

Saludos

[Buelos]

Hola gracias a todos por su colaboracion la verdad utilice el codigo de cloayza y me resulto perfecto, gracias de verdad por todo y tambien a lepe por su sugerencia pero la verdad ya habia intentado trabajar con este control y me trae problemas de la forma como la necesito.