问一个基础问题，谢谢
procedure TForm1.Panel1DockOver(Sender: TObject; Source: TDragDockObject;
X, Y: Integer; State: TDragState; var Accept: Boolean);
begin
edit2.Text:=(source as Tbutton).name + '经过 '+ (sender as Tpanel).Name;
end;

[Error] Unit1.pas(41): Incompatible types: 'TButton ' and 'TDragDockObject '
请问这是哪里错误了? 为什么？解决？

谢谢

[解决办法]
那应该怎么做啊
——————————————————
首先source 不时一个与Tbutton类兼容的对象。
其次我不知道你想要实现什么功能?
[解决办法]
TDragDockObject继承自TDragObject一系，其直接源于TObject，而TButton完全不是这一系的，是源于TCompoment，所以不能用as转换。你的这个功能估计是无法实现的，想拖动一个按钮到一个panel上。TButton应该不能Drag的吧