Форум: "Начинающим";
Текущий архив: 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.45 MB
Время: 0.045 c