Memo, Выделение итема Опции

[Tan]

Подскажите, пожалуйста, как сделать, чтобы последний элемент мемо был выделен.

Сообщение отредактировано: Tan - 3.04.2007 20:00

[klem4]

 procedure TForm1.Memo1Click(Sender: TObject);
var
  Line: Integer;
begin
   Line      := Memo1.Lines.Count - 1;
   Memo1.SelStart  := Perform(EM_LINEINDEX, Line, 0);
   Memo1.SelLength := Length(Memo1.Lines[Line]);
end;

[Tan]

Благодарю.