界面控件拖拽问题

[zzy9903]

Form上有 N 多个 Button，还有 N 个 Panel，怎样用最简单的编程实现拖拽任意一个 Button 到任意一个 Panel 中？？如果每个控件都写代码那太麻烦了，求一个简单快捷的办法，请高手给支个招，谢谢。

[zzy9903]

up…………

[王集鹄]

你有单个拖动的代码吗？有就帮你改改，没有的话那很麻烦。。。

[楚人无衣]

1.每个Button的DragMode都设为dmAutomatic；
2.每个Panel的下面两个事件都指向同一个：
procedure TForm1.Panel1DragOver(Sender, Source: TObject; X, Y: Integer;
State: TDragState; var Accept: Boolean);
begin
Accept := Source is TButton;
end;

procedure TForm1.Panel1DragDrop(Sender, Source: TObject; X, Y: Integer);
begin
if Source is TButton then
begin
TButton(Source).Parent := TPanel(Sender);
TButton(Source).Left := X;
TButton(Source).Top := Y;
end;
end;

[zzy9903]

果然简单，感谢二位！