在运行时动态改变TwinControl控件的大小!

动态改变Memo(所有TwinControl控件都可以用)的大小的技巧:

procedure TForm1.Memo1MouseDown(Sender: TObject; Button: TMouseButton;

 Shift: TShiftState; X, Y: Integer);

const

 SC_DragMove=$f001;//$f001为左增缩;

begin

 ReleaseCapture;

   (Sender as TWinControl).Perform(WM_SysCommand,SC_DragMove,0);

end;

好了,现在你移动鼠标到Memo1上,然后单击Memo1,向左拉就可以看到效果了!!

SC_DragMove其它值的效果说明:

$f002:右增缩;

$f003:上增缩;

$f004:左上增缩;

$f005:右上缩;

$f006:下增缩;

$f007:左下增缩;

$f008:右下增缩;

$f009:自由移动;

$f020:最小化(双击可以还原);