Posicionamento de Cursor

01/09/2004

Utilizo Delphi 6

Como posso fazer para que o cursor ao chegar no edit ou dbedit e nele tiver algo já escrito o cursor seja colocado no final do texto, ou seja ao mandar o cursor para o edit vá ao final do texto.

Agradeço antecipadamente qualquer ajuda.


Salupe

Respostas

01/09/2004

Macario

Olá programador usando type cast

faça assim no OnEnter do componente.

[color=red:ae97a1b111]
Ex:

  if TMaskEdit(Sender).Text <> ´´ then
    begin
      TMaskEdit(Sender).SelStart := TMaskEdit(sender).SelLength;
    end;
[/color:ae97a1b111]


lembrado que é só voce trocar [b:ae97a1b111]TMaskEdit[/b:ae97a1b111] pelo componente que
voce quer usar.

espero ter ajudado.


Responder Citar