Q&A

  • Edit에서 블록 설정하기..


그림처럼
Edit상에서 원하는 곳만 블록지정하는것을 코딩하고 싶습니다.
어떻게 해야 할까요?

고수님들의 답변 부탁드립니다.
1  COMMENTS
  • Profile
    민스맘 2007.02.20 18:47


    Help 에 있더군요...

    <!--CodeS-->
    var
      I, J, PosReturn, SkipChars: Integer;
    begin
        PosReturn := Pos(edit7.Text, edit6.Text);
        if PosReturn <> 0 then {found!}
        begin
          SkipChars := 0;
          for J := 0 to I - 1 do
            SkipChars := SkipChars + Length(edit6.Text);
          SkipChars := SkipChars + (I*2);
          SkipChars := SkipChars + PosReturn - 1;

          edit6.SetFocus;
          edit6.SelStart := SkipChars;
          edit6.SelLength := Length(edit7.Text);
        end;
    <!--CodeE-->