Версия для печати темы

Нажмите сюда для просмотра этой темы в обычном формате

Форум «Всё о Паскале» _ Делфи _ Memo

Автор: Tan 3.04.2007 23:59

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

Автор: klem4 4.04.2007 0:48

 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 4.04.2007 1:00

Благодарю.