Мой DELPHI – Программирование

Всё для программера
9июня

Как поместить курсор в определенную позицию edit’а и подобных ему элементов управления?

admin | Рубрика: Delphi FAQ
Метки: , , , , , , , , 
Вопрос:
Как поместить курсор в определенную позицию edit'а и подобных ему элементов управления?
Ответ:
Можно использовать методы Delphi SelStart() и SelectLength().

Пример:

procedure TForm1.Button1Click(Sender: TObject);
begin
	Edit1.SetFocus;
	{переводим курсор во вторую позицию}
	Edit1.SelStart := 2;
	{не выделяем никакого текста}
	Edit1.SelLength := 0;
end;
8июня

Как выяснить положение курсора в МЕМО?

admin | Рубрика: Советы
Метки: , , , , ,

Как выяснить положение курсора в МЕМО?

Необходимо вызвать дважды API-функцию “SendMessage”:


var
  xChr,
  xRow,
  xCol: LongInt;
...
 

xRow := SendMessage(Memo1.Handle, EM_LINEFROMCHAR, Memo1.SelStart, 0);
xChr := SendMessage(Memo1.Handle, EM_LINEINDEX, Zeile, 0);
xCol := Memo1.SelStart - xChr + 1;