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

Совсем замучался. Помогите   Найти похожие ветки 

← →
Ross ©   (2002-05-14 19:11) [0]

procedure TForm1.QQClick(Sender: TObject);
var
LineNum: longint;
CharsBeforeLine: longint;
begin
LineNum := SendMessage(Memo2.Handle, EM_LINEFROMCHAR, Memo2.SelStart,0);
CharsBeforeLine := SendMessage(Memo2.Handle, EM_LINEINDEX, LineNum, 0);
StatusBar1.panels[3].text:="Строка: " + IntToStr(LineNum +1)+" Символ: " + IntToStr((Memo2.SelStart -CharsBeforeLine) + 1);

end;

Но как мне заставить курсор переместиться на вот эти координаты (чтобы он там мигал)

---

← →
Song ©   (2002-05-14 19:22) [1]

procedure SetCaretPos (const Value: TPoint); virtual;

Description

SetCaretPos is the property write access method for the CaretPos property. The CaretPos property returns the coordinates of the cursor. SetCaretPos sets the cursor position to Value.

---

← →
Ross ©   (2002-05-15 12:53) [2]

Добавил:
setcaretpos(LineNum +1,Memo2.SelStart -CharsBeforeLine + 1);
Каретка появляется совсем в другом месте, может появиться даже между строк...

Ребята это же просто, это я торможу. Подскажите, как мне переместить каретку в строку 2, символ 22.

---

← →
Song ©   (2002-05-15 13:15) [3]

EM_POSFROMCHAR

---

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

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



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