Buenas,
Mi problema es el siguiente: Tengo un MaskEdit que solo acepta número y un maximo de 12 digitos, ok, lo que sucede es que kiero atrapar la tecla enter en el evento onKeyDown, y verificar que no este en blanco y si lo esta que ponga un 0, lo hice de la siguiente manera:
Código Delphi
[-]
procedure TfrmElFrom.txtElMaskEditKeyDown(Sender: TObject; var Key: Word;
Shift: TShiftState);
var
strTemp : String;
begin
if IntToStr(Key) = '13' then
begin
strTemp := txtElMaskEdit.Text;
strTemp := Trim(strTemp);
if strTemp = '' then
begin
txtElMaskEdit.Text := '0';
end;
end;
end;
El evento me funciono a la perfeccion, utilice la variable strTemp (mala practica) pq el txtElMaskEdit cuando le aplicada el trim no funcionaba?????, dejaba el txtElMaskEdit igual....
Bueno, despues hice una modificación:
Código Delphi
[-]
if strTemp = '' then
begin
txtElMaskEdit.Text := '0';
end;
btnElBoton.setFocus;
y Hay empezaron los problemas...
comenzo a darme el siguiente error:
[IMG]file:///C:/Windows/Temp/moz-screenshot.jpg[/IMG]
me sale un cuadro de mensaje diciendo:
projec bla bla raised execption class EConvertError with message ''' is not value integer value'
OK lo cambio a como me funciono, y lo ejecuto de nuevo y sorpresa el mismo error..
Gracias por la ayuda