Ver Mensaje Individual
  #2  
Antiguo 28-03-2008
Avatar de Black_Ocean
Black_Ocean Black_Ocean is offline
Miembro
 
Registrado: nov 2006
Posts: 128
Reputación: 18
Black_Ocean Va por buen camino
Ejemplos:

Para evitar que se ingreses espacios:

Código Delphi [-]
procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char);
begin
  if key = Char(VK_SPACE) then
    Key := #0;
end;

Para validar que el campo no esté vacío:

Código Delphi [-]
procedure TForm1.Button1Click(Sender: TObject);
begin
  if Edit1.Text = EmptyStr then
    //Hacer algo
end;

Para que no se ingresen números (Sólo permitir letras y caracteres):

Código Delphi [-]
procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char);
begin
  if Key in ['0'..'9'] then
    Key := #0;
end;

Para que no se ingresen letras:

[delphi]
Código Delphi [-]
procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char);
begin
  if (Key in ['a'..'z']) or (Key in ['A'..'Z'])  then
    Key := #0;
end;

Espero que sea lo que buscas, algo así entendí que querías.

Saludos.

Última edición por Black_Ocean fecha: 28-03-2008 a las 23:45:54.
Responder Con Cita