Текущий архив: 2002.05.27;
Скачать: 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 вся ветка
Текущий архив: 2002.05.27;
Скачать: CL | DM;
Память: 0.47 MB
Время: 0.011 c
