| Форумы
ЧАТ |
Орешник |
|
| Форумы -» | Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG |
|
| ||
|
|
Новости |
Поиск |
FAQ |
Статьи |
Книги |
Новости VCL
| | Форумы ЧАТ |
Орешник |
|
| |||
| |||
| |||
« предыдущая ветвь | форум | следующая ветвь »
Совсем замучался. Помогите [D6, WinXP]
Ross © (2002-05-14 19:11:00)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-15 13:15:00) [1]EM_POSFROMCHAR
Ross (2002-05-15 12:53:00) [2]Добавил:
setcaretpos(LineNum +1,Memo2.SelStart -CharsBeforeLine + 1);
Каретка появляется совсем в другом месте, может появиться даже между строк...
Ребята это же просто, это я торможу. Подскажите, как мне переместить каретку в строку 2, символ 22.
Song (2002-05-14 19:22:00) [3]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.
| |
