控件拖动时显示控件问题，各位大侠帮帮忙！！！（问题解决马上揭帖！）

Question

在Panel上有一个Button，现在已经可以实现Button在Panel上的拖动，但是在拖动的过程中无法显示控件或控件的轮廓。
有什么办法可以在拖动过程中显示出控件来或者看起来像是显示出来了？
偶曾改变Button.DragCursor为自己定义的其它光标文件，但是因为关标太小（32*32）显示效果很不理想，不知各位大侠有没有其它更好的方法？

Answer 1

你可以通过一个算法，在控件的onmousedown里开始执行，onmousemove里面实时的改变控件的top和left，这样做可能有点笨，但是很好用。

Answer 2

我的怎么浮起来落不下了。轮廓倒很好，你是怎么弄的？不是利用drag那几个属性吗？

Answer 3

procedure TForm_Main.Button1MouseMove(Sender: TObject; Shift: TShiftState; X, Y: Integer);
begin
  Caption := IntToStr(X) + '/' + IntToStr(Y);
  (sender as TWinControl).Perform(WM_SYSCOMMAND, $F009, 0);
end;

Answer 4

to tellyes(小鱼)：
我弄出来的东西和jpyc(九品御厨-为delphi学ASP.NE)说的一样，
想设一个标志位来控制一下但是没起什么作用，
能说的再具体一些吗？谢谢!to hkbarton(宁静至远||淡泊明志)：
谢谢,方法很好用！
就是移动起来要按ESC才能停，不过现在改好了。