참조 : http://hbesthee.tistory.com/72

다음은 Label1의 MouseDown 이벤트로 StringGrid1의 우측을 고정한체 넓이는 조절하는 소스입니다.

procedure TForm15.Label1MouseDown(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
begin
ReleaseCapture;
StringGrid1.Perform(WM_SYSCOMMAND, $f001, 0);
end;

$F001의 값을 다음 목록중 하나로 바꾸면 원하는 기능이 구현됩니다.

$F001 : 우측 고정 넓이 조절
$F002 : 좌측 고정 넓이 조절
$F003 : 하단 고정 높이 조절
$F004 : 우하단 고정 전체 크기 조절
$F005 : 좌하단 고정 전체 크기 조절
$F006 : 상단 고정 높이 조절
$F007 : 우상단 고정 전체 크기 조절
$F008 : 좌상단 고정 전체 크기 조절
$F009, $F012 : 이동


이재복 님이 쓰신 글 :
: 폼에서 마우스 드래그를 하여 스트링그리드를 늘리고 싶습니다.
: 그런데 그리드에 마우스를 올려놓고 크기를 늘리고 줄이는게 아니라,
: 그리드위에 라벨 하나를 만들어서 라벨을 마우스르로 드래그 하여
: 스트링 그리드를 늘리고 싶은데. 어떤 방식으로 해야 깔끔하게 할수 있나...
: 조언좀.. 굽신굽신