界面上的控件拖动问题？

[lw_wxy]

我让界面上的空件能够拖动到任意位置，而且在拖动的时候能够看到这个控件的轮廓跟随鼠标移动，这样可以实现的吗？谢谢，在线等待！！！

[sgr0426]

可以的
TDragtype=(a0,a1,a2,a3,a4,a5,a6,a7,a8,a9);

procedure TSgrcontrol.DragControl(index: TdragType);
var
value:integer;
begin
if index=a9 then
Exit;
releasecapture;
value:=0;
case index of
a0:value:=$F012;
a1:value:=$F004;
a2:value:=$F003;
a3:value:=$F005;
a4:value:=$F002;
a5:value:=$F008;
a6:value:=$F006;
a7:value:=$F007;
a8:value:=$F001;
end;
self.Perform(WM_SYSCOMMAND,value,0);
end;


收工!不要忘了给我分呵!

[sgr0426]

对了
TSgrControl是一个从TCustomControl控件派生的控件

可以这样
type
TDragtype=(a0,a1,a2,a3,a4,a5,a6,a7,a8,a9);

procedure DragControl(index: TdragType;Control:Twincontrol);

var
value:integer;
begin
if index=a9 then
Exit;
releasecapture;
value:=0;
case index of
a0:value:=$F012;
a1:value:=$F004;
a2:value:=$F003;
a3:value:=$F005;
a4:value:=$F002;
a5:value:=$F008;
a6:value:=$F006;
a7:value:=$F007;
a8:value:=$F001;
end;
Control.Perform(WM_SYSCOMMAND,value,0);
end;