Главная страница
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.013 c
3-88348
PONTIY
2002-04-29 13:56
2002.05.27
Матершина от создателей ADO


3-88373
ЕленаКв
2002-04-30 07:42
2002.05.27
В таблице есть поле summa в котором данные стрингового типа,


1-88495
3asys
2002-05-15 17:02
2002.05.27
Растягивание компонентов


3-88332
MaXie
2002-04-30 11:51
2002.05.27
Update ODBC -> смерть клиенту!


1-88394
Ross
2002-05-14 19:11
2002.05.27
Совсем замучался. Помогите