Главная страница
    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.44 MB
Время: 0.006 c
1-88452
Ron
2002-05-17 11:32
2002.05.27
TStringGrid


3-88370
spectrre
2002-05-02 11:44
2002.05.27
Как задать относительный путь до каталога с таблицами?


3-88335
DieHard
2002-04-30 12:19
2002.05.27
Оптимизация запроса


3-88330
ДимкаН
2002-04-28 14:01
2002.05.27
Помогите разобраться со структурой БД, плз.


1-88507
MystiX
2002-05-14 21:30
2002.05.27
Hooks





Afrikaans Albanian Arabic Armenian Azerbaijani Basque Belarusian Bulgarian Catalan Chinese (Simplified) Chinese (Traditional) Croatian Czech Danish Dutch English Estonian Filipino Finnish French
Galician Georgian German Greek Haitian Creole Hebrew Hindi Hungarian Icelandic Indonesian Irish Italian Japanese Korean Latvian Lithuanian Macedonian Malay Maltese Norwegian
Persian Polish Portuguese Romanian Russian Serbian Slovak Slovenian Spanish Swahili Swedish Thai Turkish Ukrainian Urdu Vietnamese Welsh Yiddish Bengali Bosnian
Cebuano Esperanto Gujarati Hausa Hmong Igbo Javanese Kannada Khmer Lao Latin Maori Marathi Mongolian Nepali Punjabi Somali Tamil Telugu Yoruba
Zulu
Английский Французский Немецкий Итальянский Португальский Русский Испанский