Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 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.009 c
3-88366
nobody2002
2002-04-30 19:48
2002.05.27
TAdoQuery и пустой запрос


1-88499
Олег Лаукарт
2002-05-11 14:44
2002.05.27
показ html текста ..


1-88543
maxim2
2002-05-16 13:15
2002.05.27
Как в Edit сделать маску ввода?


1-88404
Mush[RUM]
2002-05-16 22:30
2002.05.27
Variable required


14-88638
esprit_bel
2002-04-17 10:25
2002.05.27
Работа с текстом