11.03.2005, 10:06
общий
это ответ
Здравствуйте, Alex Voit!
Если мне не изменяет память, то в TMemo - никак.
Используй TRichEdit:
Приложение:
uses ..., RichEdit;...varpos: TPoint;begin Pos.Y := SendMessage(RichEdit.Handle, EM_EXLINEFROMCHAR, 0, RichEdit.SelStart); Pos.X := (RichEdit.SelStart - SendMessage(RichEdit.Handle, EM_LINEINDEX, Pos.Y, 0)); inc(Pos.X); inc(Pos.Y); ShowMessage(Inttostr(Pos.X) + ‘; ‘ + inttostr(Pos.Y));