Validacion del Edit

[nwaldir]

Deseo validar un edit de tal forma que no deje perder el foco en caso de que no se haya introducido ningun dato. he intentado con el siguiente codigo:

procedure TForm.validaBlanco(Sender: TObject; var Key: Word);
begin
if ((key = VK_RETURN) or (key = VK_UP) or (key = VK_DOWN) or (key = VK_tAB))then
begin
if Length((sender as TEdit).Text) = 0 then
begin
MessageBeep(MB_ICONHAND); // HACE SONAR EL SONIDO DE ERROR;
MessageDlg('No puede dejar este campo en blanco',mterror,[mbok],0);
key:= 0;
(sender as TEdit).SetFocus;
end;
end;
end;

funciona super bien cuando es enter, uparrow, downarro, [b]NO VALIDA CUANDO SE PULSA EL TABULADOR este procedimiento es llamado desde el evento Onkeydown del edit[/b]

[latindeveloper]

La tecla TAB es utilizada por el formulari para poder navegar entre ellos,

En ese caso tienes que agregar el evento onkey, onchar, keypress o como se llame al dialogo o formulario (solo para cuando se presione TAB), no a la caja de texto, .

Otra alternativa es: cuando se presiona TAB el control automaticamente pierde el foco, entonces puedes utilizar el evento adecuado (onblur,leave, killfocus, lostfocus) no se cual es en ese lenguaje pero estoy seguro que es uno de ellos.

Saludos.

[yalmar]

Hola,

Prueba mantener referencia a la caja de texto actual, y luego en el evento onkeyup haz tu validación con la referencia, y si falla haces

Código: Seleccionar todo

referencia.setfocus

si no falla, debes actualizar la referencia a la nueva caja de texto.

salu2.