Tema: restringir valores
Ver Mensaje Individual
  #4  
Antiguo 21-11-2004
Avatar de marcoszorrilla
marcoszorrilla marcoszorrilla is offline
Capo
  
Registrado: may 2003
Ubicación: Cantabria - España
Posts: 11.221
Reputación: 10
marcoszorrilla Va por buen camino
 
Código Delphi [-]
  procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char);
  begin
    if not (key in ['A'..'C']) then
    begin
    key:=#0;
    ShowMessage('Carácter inválido.');
    end;
  end;

Un Saludo.
__________________
Guía de Estilo de los Foros
Cita:
- Ça c'est la caisse. Le mouton que tu veux est dedans.
Responder Con Cita