TEdit primer digito no sea número

24-07-2013

ecfisa

Moderador

Registrado: dic 2005

Ubicación: Tres Arroyos, Argentina

Posts: 10.508

Poder: 38

Hola alquimista.

Código Delphi [-]procedure TForm1.EditKeyPress(Sender: TObject; var Key: Char);
begin
  with Sender as TEdit do
    ReadOnly := (SelStart + SelLength = 0) and (Key in ['0'..'9']);
end;

Saludos

__________________
Daniel Didriksen

Guía de estilo - Uso de las etiquetas - La otra guía de estilo ....

« Tema Anterior | Próximo Tema »

Normas de Publicación
no Puedes crear nuevos temas no Puedes responder a temas no Puedes adjuntar archivos no Puedes editar tus mensajes El código vB está habilitado Las caritas están habilitado Código [IMG] está habilitado Código HTML está deshabilitado

Saltar a Foro

Temas Similares
Tema	Autor	Foro	Respuestas	Último mensaje
Obtener determinado dígito de un número	xneox	Varios	10	07-10-2012 01:43:22
Determinar digito mayor de un numero	luisito2011	Varios	6	25-04-2011 22:17:54
sumar cada digito de un numero entero	emenchi34	Varios	9	19-09-2006 23:02:35
Extraer primer digito en minusculas ?	Coco_jac	SQL	4	21-12-2005 16:13:01
Consultas en Acces por el primer digito	jdattoli	Tablas planas	2	17-11-2005 18:04:11

La franja horaria es GMT +2. Ahora son las 02:42:01.