IPB
ЛогинПароль:

> ВНИМАНИЕ!

Прежде чем задать вопрос, смотрите FAQ.
Рекомендуем загрузить DRKB.

 
 Ответить  Открыть новую тему 
> Tmemo, В какой строке установлен курсор
klem4
сообщение 8.03.2006 20:10
Сообщение #1


Perl. Just code it!
******

Группа: Модераторы
Сообщений: 4 100
Пол: Мужской
Реальное имя: Андрей

Репутация: -  44  +


Искал, но так и не наешл, как узнать, на какой по счету строке в Memo устновлен курсор...

Спасибо.


--------------------
perl -e 'print for (map{chr(hex)}("4861707079204E6577205965617221"=~/(.{2})/g)), "\n";'
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 
volvo
сообщение 8.03.2006 20:25
Сообщение #2


Гость






procedure TForm1.Button2Click(Sender: TObject);
var p: TPoint;
begin
p := memo1.CaretPos;
ShowMessage('cursor pos is: X = ' + inttostr(p.X + 1) +
' Y = ' + inttostr(p.Y + 1));
end;
 К началу страницы 
+ Ответить 
klem4
сообщение 8.03.2006 20:29
Сообщение #3


Perl. Just code it!
******

Группа: Модераторы
Сообщений: 4 100
Пол: Мужской
Реальное имя: Андрей

Репутация: -  44  +


Спасибо cool.gif


--------------------
perl -e 'print for (map{chr(hex)}("4861707079204E6577205965617221"=~/(.{2})/g)), "\n";'
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 

 Ответить  Открыть новую тему 
1 чел. читают эту тему (гостей: 1, скрытых пользователей: 0)
Пользователей: 0

 



- Текстовая версия 22.06.2025 4:34
Хостинг предоставлен компанией "Веб Сервис Центр" при поддержке компании "ДокЛаб"