FTP | CCD | Buscar | Trucos | Trabajo | Foros |
|
Registrarse | FAQ | Miembros | Calendario | Guía de estilo | Temas de Hoy |
|
Herramientas | Buscar en Tema | Desplegado |
|
#1
|
|||
|
|||
problemas con TMaskEdit
Mi problema es que cuando entro a un maskedit pongo un valor y luego lo borro y me quiero salir me manda el error:
Invalid input value. Use escape key to abandon changes. tengo entonces que teclear la tecla escape y luego salir del control. Cómo puedo hacer para que esto no suceda, es decir, que pueda introducir un valor, borrarlo y salirme del control sin tener que teclear escape? Gracias. saludos |
#2
|
||||
|
||||
Cita:
Una posible solución es usar el evento OnChange del control para reasignar true a la propiedad Modified en caso de que el texto no contenga nada. Para esto hay que tener en consideración la forma en que se especifica la máscara. Por ejemplo, si la máscara es (para una fecha): MaskEdit1.EditMask := !99/99/00;0;_ entonces basta que compares con la cadena vacía:
pero si es: MaskEdit1.EditMask := !99/99/00;1;_ entoncs deberá de comparar así:
Esto es así porque el 1 en la segunda parte de la especificación de la máscara indica que los caracteres literales ('/' en este caso) son parte del texto. // Saludos |
#3
|
|||
|
|||
Otra solución
Hola, hallé una solución muy buena a este problema de un amigo brasileño. Parece que están más adelantados allá jajaja!
Está en portugués pero creo que da para entender: Delphi: como interceptar o evento OnExit de um TMaskEdit? Autor: Marcos Dell Antonio - Categorias: Delphi Com certeza o componente TMaskEdit foi modelado às pressas pela equipe responsável, pois forçar uma validação com uma mensagem fixa sempre que o usuário sai do campo é um crime. E tem mais: eu diria que a pena é de prisão perpétua, pois além disso, quando você limpa o conteúdo do campo e sai dele, a validação também é executada. Neste caso, adivinha o que acontece? Uma mensagem de erro aparece mesmo sem ter valor algum no campo. Há quem diga que é impossível desabilitar esta validação. Realmente é, se pensarmos de forma racional. No entanto, não custa nada partir pra baixaria uma vez ou outra. Todos os componentes trabalham com mensagens enviadas pelo Windows para ativar os eventos. Portanto, o que acontece com o TMaskEdit? Ele recebe uma mensagem informando que o usuário saiu do campo, executa o OnExit e, neste momento, faz a validação do conteúdo. Já que o problema descrito acima acontece mesmo quando o usuário limpa o valor do campo, a solução é interceptar o evento OnExit e só executar o código padrão caso algum valor tenha sido informado. Como fazer? Simples. Veja: Declare uma procedure type of object (em outra palavras, um método) e um field do tipo TWndMethod: FOldWindowProc: TWndMethod; procedure WMWindowProc(var Msg: TMessage); A implementação do método é a seguinte: procedure TfrmForm.WMWindowProc(var Msg: TMessage); begin if (Msg.Msg = CM_EXIT) then begin if (maskEdit.Text <>”) then FOldWindowProc(Msg); end else FOldWindowProc(Msg); end; No evento FormShow do formulário faça as seguintes atribuições: FOldWindowProc := maskEdit.WindowProc; maskEdit.WindowProc := WMWindowProc; Pronto! Agora sempre que o evento OnExit do TMaskEdit for executado ele só fará a validação se o Text for diferente de vazio. T+ Ps1: falei especificamente do TMaskEdit, porém este conceito de captura de eventos vale para todos os componentes. Fuente: http://www.marcosdellantonio.net/category/delphi/ Última edición por mr_mustard fecha: 21-05-2008 a las 20:39:13. Razón: estaba ilegible el código |
|
|
|