[[cHackAll]]

Empezado por roman

¿Qué se supone que hace esto?

Si oprimo una letra, el control se hará de sólo lectura, pero la letra se escribirá y ya no podré escribir nada más, ni letras ni números.

// Saludos

Estas mal amigo, pruébalo pues funciona como lo dejé!!!

Elite237, acá está lo tuyo:

Código Delphi [-]
procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char);
begin
 if Key in ['0'..'9'] then
  begin
   Application.MessageBox('No puedes escribir numeros en ésta casilla!', 'Error de validación');
   Key := #0;
  end;
end;

Edito: roman no es Enabled; es ReadOnly!