Мастера DELPHI, Delphi programming community Рейтинг@Mail.ru Титульная страница Поиск, карта сайта Написать письмо 
| Новости |
Новости сайта
Поиск |
Поиск по лучшим сайтам о Delphi
FAQ |
Огромная база часто задаваемых вопросов и, конечно же, ответы к ним ;)
Статьи |
Подборка статей на самые разные темы. Все о DELPHI
Книги |
Новинки книжного рынка
Новости VCL
Обзор свежих компонент со всего мира, по-русски!
|
| Форумы
Здесь вы можете задать свой вопрос и наверняка получите ответ
| ЧАТ |
Место для общения :)
Орешник |
Коллекция курьезных вопросов из форумов
KOL и MCK |
KOL и MCK - Компактные программы на Delphi

Дата: 05.07.01 00:13


Пример получения позиции курсора из компоненты TMemo.



procedure TForm1.Memo1KeyUp(Sender: TObject; var Key: Word;  Shift: TShiftState);
begin
Memo1Click(Self);
end;

procedure TForm1.Memo1Click(Sender: TObject);
VAR
 LineNum : LongInt;
 CharNum : LongInt;
begin
 LineNum := Memo1.Perform(EM_LINEFROMCHAR, Memo1.SelStart, 0);
 CharNum := Memo1.Perform(EM_LINEINDEX, LineNum, 0);
 Label1.Caption := IntToStr(LineNum+1)+' : '+IntToStr((Memo1.SelStart-CharNum)+1);
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
 Memo1Click(Self);
end;


Коментарий от "Coox" (flzei@open.by)
В Delphi 4 и выше есть клевая штука - CaretPos с двумя свойтсвами: X и Y
где Y - строка, X - столбец.

Чтобы вернуться оцените этот вопрос/ответ:
   

Прислать свои комментарии


Новое на сайте

Наверх

  Рейтинг@Mail.ru     Титульная страница Поиск, карта сайта Написать письмо