如何在运行时移动一些不可以获得焦点的控件？ ( 积分: 10 )

如何在运行时移动一些不可以获得焦点的控件？
有哪位大侠帮帮忙
to mail: cqjxnc@21cn.com 谢谢

如何在运行时移动一些不可以获得焦点的控件？
有哪位大侠帮帮忙
to mail: cqjxnc@21cn.com 谢谢

改这个控件的left，top不就行了？

to ks-kill
我在实现拖动效果。

在mousemove事件里判断鼠标位置然后改控件位置。。。。。
比如speetbutton。。。。
var
oldp:Tpoint;

procedure TForm1.SpeedButton1MouseMove(Sender: TObject; Shift: TShiftState;
X, Y: Integer);
var
p:Tpoint;
begin
if ssLeft in shift then
begin
SpeedButton1.Top:=SpeedButton1.Top+y-oldp.y;
SpeedButton1.Left:=SpeedButton1.Left+x-oldp.X;
end;
end;

procedure TForm1.SpeedButton1MouseDown(Sender: TObject;
Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
begin
oldp.X:=x;
oldp.Y:=y;
end;

我已经做出来了，各位，谢谢。不是上述的方案。