Delphi-Help

Главная Статьи Многострочное окно редактирования (Memo) Как щелчком выделить строку в TMemo

Как щелчком выделить строку в TMemo

Оцените материал
(0 голосов)


Как щелчком выделить строку в TMemo

В этом примере показывается, как выделить строку в компоненте TMemo.

Примечание: Поместите компонент TMemo (Memo1) на форму и вызовите процедуру SelectMemoLine из обработчика события OnClick компонента TMemo.

procedure SelectMemoLine(Memo : TCustomMemo) ;
var
   Line : integer;
begin
   with Memo do
   begin
     Line := Perform(EM_LINEFROMCHAR, SelStart, 0) ;
     SelStart := Perform(EM_LINEINDEX, Line, 0) ;
     SelLength := Length(Lines[Line]) ;
   end;
end;

Использование:

procedure TForm1.Memo1Click(Sender: TObject) ;
begin
   SelectMemoLine(Memo1) ;
end;
Другие материалы в этой категории: « Функция Undo в TMemo Как сделать отступ в Memo? »

Авторизация



Счетчики