问一个基础问题，谢谢

Question

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'
请问这是哪里错误了? 为什么？解决？谢谢

Answer 1

那应该怎么做啊
——————————————————
首先source 不时一个与Tbutton类兼容的对象。
其次我不知道你想要实现什么功能?

Answer 2

TDragDockObject继承自TDragObject一系，其直接源于TObject，而TButton完全不是这一系的，是源于TCompoment，所以不能用as转换。你的这个功能估计是无法实现的，想拖动一个按钮到一个panel上。TButton应该不能Drag的吧