Как найти позицию текстового курсора в пикселях?
Falk0ner, вс, 06/07/2008 - 15:34.
Как найти позицию текстового курсора в пикселях?
var
pt: TPoint;
begin
with richedit1 do begin
Perform( messages.EM_POSFROMCHAR, WPARAM(@pt), selstart );
label1.caption := Format('(%d,%d)', [pt.x, pt.y]);
end;
end;
var
r: LongInt;
begin
with memo1 do begin
r := Perform( messages.EM_POSFROMCHAR, selstart, 0);
if r >= 0 then begin
label1.caption := IntToStr(HiWord(r));
label2.caption := IntToStr(LoWord(r));
end;
end;
end;
pt: TPoint;
begin
with richedit1 do begin
Perform( messages.EM_POSFROMCHAR, WPARAM(@pt), selstart );
label1.caption := Format('(%d,%d)', [pt.x, pt.y]);
end;
end;
var
r: LongInt;
begin
with memo1 do begin
r := Perform( messages.EM_POSFROMCHAR, selstart, 0);
if r >= 0 then begin
label1.caption := IntToStr(HiWord(r));
label2.caption := IntToStr(LoWord(r));
end;
end;
end;
Отправить комментарий