Club Delphi  
    FTP   CCD     Buscar   Trucos   Trabajo   Foros

Retroceder   Foros Club Delphi > Buscar en los Foros
Actualizar esta página Resultados de Búsqueda
Registrarse FAQ Miembros Calendario Guía de estilo Temas de Hoy

Mostrando resultados del 1 al 1 de 1
La búsqueda tomó 0,01 segundos. Buscar: Mensajes Hechos Por: darcan01
Foro: Varios 06-07-2007
Respuestas: 5
Visitas: 1.193
Escrito Por darcan01
Smile procedure TForm1.Edit1KeyPress(Sender: TObject;...

procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char);
begin
If not (Key in ['A'..'Z','a'..'z',#8,#13,#32 ]) then key:=#0; //para que permitas el BackSpace y el Enter y el espaciador
end;
Mostrando resultados del 1 al 1 de 1

 
Saltar a Foro

La franja horaria es GMT +2. Ahora son las 07:30:39.

Club Delphi - Archivo - Top

Powered by vBulletin® Version 3.6.8
Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
Traducción al castellano por el equipo de moderadores del Club Delphi
Copyright 1996-2007 Club Delphi