Code:

{TRichEdit}

 

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;

 

{TMemo and TEdit}

 

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;

 

Добавить комментарий

Не использовать не нормативную лексику.

Просьба писать ваши замечания, наблюдения и все остальное,
что поможет улучшить предоставляемую информацию на этом сайте.

ВСЕ КОММЕНТАРИИ МОДЕРИРУЮТСЯ ВРУЧНУЮ, ТАК ЧТО СПАМИТЬ БЕСПОЛЕЗНО!


Защитный код
Обновить