怎末可以拖动，在线等待！！

[woxiao123]

我想把一个组件放到form中，客户何以随意在form中拖放这个组件，还可以改变其大小形状。请问用哪个（些）组件的那个属性，怎末实现？？谢谢！

[woxiao123]

up

[wdsimon]

别人的经验：
适用于TWinControl派生类的对象:
procedure TForm1.ManipulateControl(WinControl: TWinControl; Shift: TShiftState;
X, Y, Precision: integer);
var
SC_MANIPULATE: Word;
begin
if (X<=Precision) and (Y>Precision) and (Y<WinControl.Height-Precision)
then begin//光标在控件的最左侧
SC_MANIPULATE := $F001;
WinControl.Cursor := crSizeWE;
end
else if (X>=WinControl.Width-Precision) and (Y>Precision) and (Y<WinControl.Height-Precision)
then begin//光标在控件的最右侧
SC_MANIPULATE := $F002;
WinControl.Cursor := crSizeWE;
end
else if (X>Precision) and (X<WinControl.Width-Precision) and (Y<=Precision)
then begin//光标在控件的最上侧
SC_MANIPULATE := $F003;
WinControl.Cursor := crSizeNS;
end
//光标在控件的左上角**********************************************************
else if (X<=Precision) and (Y<=Precision)
then begin
SC_MANIPULATE := $F004;
WinControl.Cursor := crSizeNWSE;
end
//光标在控件的右上角**********************************************************
else if (X>=WinControl.Width-Precision) and (Y<=Precision)
then begin
SC_MANIPULATE := $F005;
WinControl.Cursor := crSizeNESW ;
end
//光标在控件的最下侧**********************************************************
else if (X>Precision) and (X<WinControl.Width-Precision) and (Y>=WinControl.Height-Precision)
then begin
SC_MANIPULATE := $F006;
WinControl.Cursor := crSizeNS;
end
//光标在控件的左下角**********************************************************
else if (X<=Precision) and (Y>=WinControl.Height-Precision)
then begin
SC_MANIPULATE := $F007;
WinControl.Cursor := crSizeNESW;
end
//光标在控件的右下角**********************************************************
else if (X>=WinControl.Width-Precision) and (Y>=WinControl.Height-Precision)
then begin
SC_MANIPULATE := $F008;
WinControl.Cursor := crSizeNWSE;
end
//光标在控件的客户区（移动整个控件）******************************************
else if (X>5) and (Y>5) and (X<WinControl.Width-5) and (Y<WinControl.Height-5)
then begin
SC_MANIPULATE := $F009;
WinControl.Cursor := crSizeAll;
end
else begin
SC_MANIPULATE := $F000;
WinControl.Cursor := crDefault;
end;
//~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
if Shift=[ssLeft] then
begin
ReleaseCapture;
WinControl.Perform(WM_SYSCOMMAND, SC_MANIPULATE, 0);
end;
end;

这样来调用：
procedure TForm1.Button1MouseMove(Sender: TObject; Shift: TShiftState; X,
Y: Integer);
begin
button1.Caption := IntToStr(X) + '/' + IntToStr(Y);
ManipulateControl((Sender as twincontrol), Shift, X, Y, 10);
end;

[woxiao123]

有没有简单的方法，我还要可以改变其形状大小。就像在程序设计阶段对组件外观所作的操作那样。

[wdsimon]

上面完全可达到你的要求。

[wdsimon]

呵呵，还要更简单的办法？这就是根据VCL里设计期间控件拖放缩小的原理来做的。

[pressman]

老王帖出来的代码很不错哦
呵呵，谢过了
收藏。

[wdsimon]

其实所有的诀窍在perform()

[woxiao123]

听说resize这个控件不错，哪里有下的，是免费的吗？

[woxiao123]

我试了，不错谢谢老王，呵呵！

[FrameSniper]

揭贴吧！

[zhuxiankun1980]

呵呵,,好东西..