Скачать: CL | DM;

как в TEdit переместить курсор (вертикальную палку) в конец стр   Найти похожие ветки 

← →
Gentos   (2007-05-08 12:09) [0]

Простой вопрос, даже можно сказать примитивные, но все же ответа на него я не знаю
вот есть вот такой код

procedure TForm1.edtWWWKeyUp(Sender: TObject; var Key: Word;
 Shift: TShiftState);
begin
   if edtWWW.Text = "w" then edtWWW.Text := "www.";
end;

хотелось бы чтобы после его выполнения курсор в едите перемещался в конец а не оставался в начале, сенкс за одну Вашу, я надеюсь, одну строчку :)

---

← →
Ega23 ©   (2007-05-08 12:20) [1]

TEdit.SelStart, TEdit.SelLength + F1

---

← →
Gentos   (2007-05-08 12:34) [2]

большое спасибо , ха все работает

edtWWW.SelStart := Length(edtWWW.Text)


---

Страницы: 1 вся ветка

Скачать: CL | DM;



Память: 0.45 MB
Время: 0.038 c