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

Тема в разделе "Delphi", создана пользователем WinHack, 24 ноя 2016.

  1. WinHack
    В этом примере показывается, как выделить строку в компоненте 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;