TEdit primer digito no sea número

[ecfisa]

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

[Casimiro Noteví]

No se me habría ocurrido hacerlo así
Es más, ¿eso funciona?

[alquimista]

Y le añado lo primero que puse???

Y si quiero limitarlo a un número determinado de caracteres???
vale con poner: or (SelStart + SelLength >x) ??

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']) OR ((SelStart + SelLength >longitud);
end;

PD: Me parece impresionante...

Gracias..

[Casimiro Noteví]

Empezado por alquimista

Y le añado lo primero que puse???

No
.

[alquimista]

Es que si no no me deja borrar caracteres.

En realidad solo quiero este juego de caracteres y que el primero sea letra o _ y limitado a 32 caracteres (numeros o letras o _ solo)
if not (Key in ['A'..'Z','a'..'z','0'..'9','_',#8]) then Key:=#0;
Pero lo pongo detras de lo de ecfisa.

PD:Lo de limitarlo no me va ya que al rebasar la longitud no me deja ni borrar.

Sorry: lo de la longitud se hace con la propiedad MAxLength

[[oscarac]]

Empezado por Casimiro Notevi

No se me habría ocurrido hacerlo así
Es más, ¿eso funciona?

si funciona, lo curioso es que en ninguna literatura encontre esas propiedades