Editin en sonuna gitme

[Burhan_ast]

Arkadaslar merhaba,

procedure TForm1.Image39Click(Sender: TObject);
begin
If Edit1.Enabled=True then Edit1.Text:=Edit1.Text+'3';
end;

Seklinde bir prosedurum ve butonlarim ve yalniz Edit1 ekleme yaptiktan sonra mousenin edit1 icerisindeki pozisyonu surekli basta duruyor edit 1 icinde en sonuna imleci nasil goturebilirim...

Bir tur ekran klavye icin bunu kullanmam lazim

Burhan

[mussimsek]

Merhaba,

ben şu şekilde yapıyorum :

Edit1.SelStart := Length(Edit1.Text);

Kolay gelsin.