| Форумы
ЧАТ |
Орешник |
|
| Форумы -» | Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG |
|
| ||
|
|
Новости |
Поиск |
FAQ |
Статьи |
Книги |
Новости VCL
| | Форумы ЧАТ |
Орешник |
|
| |||
| |||
| |||
« предыдущая ветвь | форум | следующая ветвь »
Положение курсора. [D6]
Андрей © (2007-10-26 11:50:00)Применив:
SendMessage(Windows.GetFocus, EM_GETSEL, Longint(@a), Longint(@b));
Получаю a- начало выделения текста, b- конец выделения.
А как узнать положение курсора в случае при a <> b?
Leonid Troyanovsky (2007-10-27 13:01:00) [1]
> Андрей (26.10.07 22:34) [2]
[3] &
function EditPointCoord(Edit: TCustomEdit; Point: TPoint): TCoord;
var
z: Longint;
begin
z := Edit.Perform(EM_CHARFROMPOS, 0, MakeLParam(Point.X, Point.Y));
Result.Y := Hiword(z);
Result.X := Loword(z);
if Result.Y > 0 then
Result.X := Result.X - Edit.Perform(EM_LINEINDEX, Result.Y, 0);
end;
--
Regards, LVT.
guav (2007-10-27 00:30:00) [2]GetCaretPos ?
Андрей (2007-10-26 22:34:00) [3]Конечно, если хорошенько приглядется.
Reindeer Moss Eater (2007-10-26 11:55:00) [4]а он вообще есть, если есть выделение?
| |
