Сообщество Чайников

Вопрос

Как в Memo1 определить позицию курсора? Не указателя мыши, а курсора вида I?

Ответ

Вроде бы вот так:
procedure TForm1.Button1Click(Sender: TObject);
var
xChr, xRow, xCol: LongInt;
begin
xRow := SendMessage(Memo1.Handle, EM_LINEFROMCHAR, Memo1.SelStart, 0);
xChr := SendMessage(Memo1.Handle, EM_LINEINDEX, Memo1.SelLength, 0);
xCol := Memo1.SelStart — xChr + 1;
Label1.Caption:= IntToStr(xCol);
Label2.Caption:= IntToStr(xRow);
end;

Shadow.