에디트박스에 셀 선택하기 (마우스로 드래그한 효과)

에디트 박스에 원하는 부분만큼 텍스트를 마우스로 드래그하듯 셀 선택하는 법


procedure edtSelect(edt: TEdit; posStart, posEnd: Integer);
begin

edt.SelStart:=posStart;

edt.SelLength:=posEnd;

end;



Edit1.Text 전부를 선택하고 싶다면

edtSelect(Edit1, 0, Length(Edit1.Text));

이렇게 하면 된다...