[Delphi] TMemo 에서 라인 선택하기

TMemo 에서 라인별로 마우스 드래그를 통해 선택한 것처럼 하는 함수.

 

 

procedure MemoLineSelect(Memo: TMemo; LineNum: Integer);
begin
  if Memo.Lines.Count<=LineNum then Exit;

  Memo.SetFocus;
  Memo.SelStart:=Pos(Memo.Lines[LineNum], Memo.Text)-1;
  Memo.SelLength:=Length(Memo.Lines[LineNum]);
end;

 

만약 Memo1 의 첫번째 라인을 선택하고자 한다면, 아래처럼 호출.

 

MemoLineSelect(Memo1, 0);