Положение курсора в Memo

[vvaassiill]

Помогите пожалуйста!!!
Как установить в поле Memo курсор в указанную строку?

[Nemon]

Получаешь кол-во строк в твоем Мемо

 function LinesVisible(Memo: TMemo): integer; 
    Var 
      OldFont : HFont; 
      Hand : THandle; 
      TM : TTextMetric; 
      Rect  : TRect; 
      tempint : integer; 
    begin 
      Hand := GetDC(Memo.Handle); 
      try 
        OldFont := SelectObject(Hand, Memo.Font.Handle); 
        try 
          GetTextMetrics(Hand, TM); 
          Memo.Perform(EM_GETRECT, 0, longint(@Rect)); 
          tempint := (Rect.Bottom - Rect.Top) div 
             (TM.tmHeight + TM.tmExternalLeading); 
        finally 
          SelectObject(Hand, OldFont); 
        end; 
      finally 
        ReleaseDC(Memo.Handle, Hand); 
      end; 
      Result := tempint; 
    end;

Потом перемещаешь на нужную строку:

Function SetCaretPosition(memo:TMemo; x,y:integer);
var i:integer;
begin
  i := SendMessage(memo.Handle, EM_LINEINDEX, y, 0) + x;
  SendMessage(memo1.Handle, EM_SETSEL, i, i);
end;

[pu4koff]

кажеца так:
p: TPoint;
p.x := 0;
p.y := 5;
Memo.CaretPos := p;
перведет на 6 строку

[Nemon]

кажеца так:
p: TPoint;
p.x := 0;
p.y := 5;
Memo.CaretPos := p;
перведет на 6 строку

Может и так.
Только все равно кол-во строк сначала узнать надо...

[pu4koff]

Memo.Lines.Count по моему не тяжело написать, да и афтар про это не спрашивал