memo текущая строка

[rellai2]

как узнать текущую строку(в которой аходится курсор)?
в делфи это делалось так:EditExpr.Perform(em_LineIndex, $FFFF, 0);

как в лазарусе, я так и не понял (

[WindOfPain]

Что-нибудь типа этого слепить можно:

Код: Выделить всё

function GetPosMemo(const Memo:TMemo):integer;
var
  s:string;
begin
     s:=Copy(Memo.Lines.Text,1,Memo.SelStart);
     Result:=1;
     while pos(#13#10,s)<>0 do
     begin
          delete(s,pos(#13#10,s),2);
          inc(Result);
     end;
end;


Правда, если фрагмент текста выделен, то будет возвращена строка, в которой находится начало выделения, а не текущая позиция курсора.

[Polugut]

memo1.Lines[memo1.CaretPos.Y];

[rellai2]

Попробовал!
Второй вариант подошел, все вопросы отпали, всем спасибо)

[v-t-l]

Точно не помню, попробуй так:

Код: Выделить всё

   if key = VK_RETURN then
      begin
          EditExpr.Lines.Strings[EditExpr.CaretPos.Y]:='blablabla';
          key := 0;
      end;

[rellai2]

ага спасибо, я так тоже уже сделал, это подошло )