[개발/delphi] TMemo 에서 라인 선택하기

[개발/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);