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

Переместисть курсор в конец строки   Найти похожие ветки 

← →
Антоныч   (2005-01-25 15:35) [0]

Я наверняка туплю, но пример наипростейший. Имеется Memo, в нем вводим строку. При нажатии определенной кнопки необходимо, чтоб добавлялось сразу несколько символов, например:
procedure TForm1.Memo1KeyPress(Sender: TObject; var Key: Char);
begin
if Key="a" then begin
  Memo1.Text:=Memo1.Text+"bc";
  Key:=#0;
end;
end;
После добавления "bc" курсор находится в начале строки. Как его переместить в конец?

---

← →
begin...end ©   (2005-01-25 15:37) [1]

TMemo.SelStart

---

← →
Антоныч   (2005-01-25 15:40) [2]

Спасибо. Надо было внимательнее читать хелп :)

---

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

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



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