Как найти позицию текстового курсора в пикселях?
Материал из DRKB
Как найти позицию текстового курсора в пикселях?[править | править код]
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;
ID: 00581