validar tedit que primer caracter no sea 0

		Foros Club Delphi > Principal > Varios
validar tedit que primer caracter no sea 0

07-12-2010

[escafandra] escafandra is offline

Miembro Premium

Registrado: nov 2007

Posts: 2.198

Poder: 20

Código Delphi [-]begin
if not(Key in ['0'..'9',#8]) or (((Sender as TEdit).SelStart = 0) and (Key = '0')) then
    Key:=#0;
end;

Saludos.

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
Cursor en ultimo caracter de TEdit	Viky	Varios	2	22-12-2009 15:27:17
Validar un TEdit	Nicoasd	Varios	5	06-07-2007 13:38:24
Extraer varios registros con su primer caracter.....	Luis Alberto	SQL	11	17-11-2005 17:37:06
Extraer el primer caracter de un string	willy	Varios	34	29-04-2004 23:56:57
Posición del primer caracter de linea en un RichEdit	SCH	Varios	0	22-09-2003 20:51:32

La franja horaria es GMT +2. Ahora son las 16:38:11.