Форум: "Начинающим";
Текущий архив: 2006.10.29;
Скачать: [xml.tar.bz2];
Вниз
Как зная координаты каретки в Memo получить индекс ? Найти похожие ветки
← →
Alex_C © (2006-10-16 14:29) [0]Как зная Memo.CaretPos получить индекс относительно начала текста (тот что согласуется с SelStart)?
← →
han_malign © (2006-10-16 14:32) [1]
function EMCaretPos(Handle: THandle): Integer;
var
P: TPoint;
begin
Windows.GetCaretPos(P);
Result:=SendMessage(Handle,EM_CHARFROMPOS,0,MakeLong(P.X, P.Y));
end;
← →
Джо © (2006-10-16 14:33) [2]EM_CHARFROMPOS
← →
Джо © (2006-10-16 14:34) [3]> [2] Джо © (16.10.06 14:33)
> EM_CHARFROMPOS
Не видел [1].
← →
Alex_C © (2006-10-16 14:35) [4]То han_maling: так не работает, работает так:
function GetMemoCaretIndex( ControlMemo: TMemo ) : Integer;
var
P: TPoint;
begin
Windows.GetCaretPos(P);
Result:= SendMessage(ControlMemo.Handle,EM_CHARFROMPOS,0,MakeLong(Word(P.X), Word(P.Y))) - ControlMemo.CaretPos.Y*65536;
end;
Почему?
← →
Ketmar © (2006-10-16 18:27) [5]справку читаем, ага?
The return value specifies the character index in the low-order word and the line index in the high-order word.
Страницы: 1 вся ветка
Форум: "Начинающим";
Текущий архив: 2006.10.29;
Скачать: [xml.tar.bz2];
Память: 0.45 MB
Время: 0.066 c
