Форум: "Начинающим";
Текущий архив: 2007.11.18;
Скачать: [xml.tar.bz2];
Вниз
Положение курсора. Найти похожие ветки
← →
Андрей (2007-10-26 11:50) [0]Применив:
SendMessage(Windows.GetFocus, EM_GETSEL, Longint(@a), Longint(@b));
Получаю a- начало выделения текста, b- конец выделения.
А как узнать положение курсора в случае при a <> b?
← →
Reindeer Moss Eater © (2007-10-26 11:55) [1]а он вообще есть, если есть выделение?
← →
Андрей (2007-10-26 22:34) [2]Конечно, если хорошенько приглядется.
← →
guav © (2007-10-27 00:30) [3]GetCaretPos ?
← →
Leonid Troyanovsky © (2007-10-27 13:01) [4]
> Андрей (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.
Страницы: 1 вся ветка
Форум: "Начинающим";
Текущий архив: 2007.11.18;
Скачать: [xml.tar.bz2];
Память: 0.44 MB
Время: 0.039 c
