MaskEdit Hora

[PedroS 0]

Coloquei em um DbEdit pelo client data set uma maskara de hora, EditMask : !90:00;1;_ e DisplayFormat : HH:mm, porem ao digitar uma hora invalida ele ñ deixa a pessoa sair do DBEdit. O que eu queria fazer era dar a msg de hora invalida e limpar o campo, assim liberando a pessoa, pois o campo nao é obrigatorio.

[Rodrigo Miss 1]

Boa tarde amigo ...

faz assim no onExit do campo:

if (Edit1.Text <> '') then  begin	try	  StrToTime(Edit1.Text);	except	  ShowMessage('Hora inválida!');	  Edit1.Clear;	end;  end;

[PedroS 0]

Estou utilizando o DBEdit, ao sair do campo ele ja tenta "gravar" e acaba dando erro, assim ele acaba nao entrando em nenhum evento quando a hora esta errada...

[Rodrigo Miss 1]

Amigão ... então basta fazer o tratamento no evento onSetText do seu campo Hora:

 

try	Sender.value:= TimeToStr(Text);  except on EConvertError do	begin	  Application.MessageBox('Hora inválida!','Error', mb_Ok + mb_iconError);	  Sender.Clear;	end;  end;

ok! :rolleyes:

[Hugo Slepicka 0]

Tente mudar:

!90:00;1;_

Para:

99:99

[PedroS 0]

Amigão ... então basta fazer o tratamento no evento onSetText do seu campo Hora:

 

try	Sender.value:= TimeToStr(Text);  except on EConvertError do	begin	  Application.MessageBox('Hora inválida!','Error', mb_Ok + mb_iconError);	  Sender.Clear;	end;  end;

ok! :rolleyes:

Funcionou, valeu ae! http://forum.imasters.com.br/public/style_emoticons/default/clap.gif