memo, позиции курсора на нем

[BloodMaX]

первый вопрос, как узнать на какой строке находится курсор (имеется виду мигающая черта)
второй вопрос, как узнать на каком символе (integer) находится курсор

[XerSon]

var  
  X, Y: LongInt;   
begin  
  Y := Memo1.Perform(EM_LINEFROMCHAR, Memo1.SelStart, 0);   
  X := Memo1.Perform(EM_LINEINDEX, Y, 0);   
  inc(Y);   
  X := Memo1.SelStart - X + 1;   
  Form1.Caption := 'X = ' + IntToStr(X) + ' : ' + 'Y = ' + IntToStr(Y);   
end;

[BloodMaX]

спасибо) очень помогло)

[Stilet]

Y := Memo1.Perform(EM_LINEFROMCHAR, Memo1.SelStart, 0);

Борландовцы обернули это в Memo1.CaretPos.Y