Как щелчком выделить строку в 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;
|
