请问:如何实现delphi的拖拉控件功能呢?
在delphi的ide环境中,
在delphi的控件页选择一个控件,然后拖动到窗口中,就生成了一个控件了不知道这个功能如何用代码实现哦!
比如说:
在form1窗口中
左侧工具栏(panel1)上,有许多控件.
右侧显示区域上,有许多容器组件(诸如:tpanel,tgroupbox)
要实现的功能
在程序运行期
在左侧工具栏上选中某个控件,拖动到右侧显示区的容器组件上.
在delphi的ide环境中,
在delphi的控件页选择一个控件,然后拖动到窗口中,就生成了一个控件了不知道这个功能如何用代码实现哦!
比如说:
在form1窗口中
左侧工具栏(panel1)上,有许多控件.
右侧显示区域上,有许多容器组件(诸如:tpanel,tgroupbox)
要实现的功能
在程序运行期
在左侧工具栏上选中某个控件,拖动到右侧显示区的容器组件上.
procedure TForm1.Panel1DragDrop(Sender, Source: TObject; X, Y: Integer);
begin
(source as Tbutton).Parent:=sender as Tpanel;
(source as Tbutton).Left:=x;
(source as Tbutton).Top:=y;
end;procedure TForm1.Panel1DragOver(Sender, Source: TObject; X, Y: Integer;
State: TDragState; var Accept: Boolean);
begin
accept:=true;
end;procedure TForm1.FormCreate(Sender: TObject);
begin
button1.DragMode:=dmAutomatic;
end;窗体上放一button和一panel