Concatenar

Delphi

23/02/2006

Gostaria que depois de digitado uma letra, essa seria transferida para um edit e logo em seguida o focu seria enviado para esse edit e para o usuario continuar a digitar preciso enviar tb uma seta para direita como posso fazer isso?


  if (chr(Key) >= ´A´) and (chr(Key) <= ´Z´)  then
  begin
    ENome.SetFocus;
    ENome.Text := chr(Key);
  end;



Felipeiw

Felipeiw

Curtidas 0

Respostas

Massuda

Massuda

23/02/2006

A seta para direita é para o cursor ficar no fim do texto? se for, mais fácil fazer assim...
if (chr(Key) >= ´A´) and (chr(Key) <= ´Z´)  then 
  begin 
    ENome.SetFocus; 
    ENome.Text := chr(Key); 
    // não tenho certeza, talvez não precise do "+1"
    ENome.SelStart := Length(ENome.Text) + 1;  
  end;



GOSTEI 0
Felipeiw

Felipeiw

23/02/2006

Exatamente isso, novamente mt obrigado !


GOSTEI 0
POSTAR