请教一个很有研究价值的问题

Question

当我们把Fields Editor窗口中的字段选中后，拖到窗体面板上，窗体上会自动生成相应的label和DBEdit等组件。请问：其实现代码在delphi源代码中的何处能找到？

Answer 1

Fields Editor窗口有拖拉事件，实现起来不难。

Answer 2

这个应该没有源代码吧，这是DELPHI程序的功能。
但是实现起来也不是很难啊

Answer 3

下面这段代码是托拽edit控件，再拖拽的位置生成一个新的edit控件，
只要有托拽事件的空间都可以这么做。procedure TForm1.Edit1MouseDown(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
begin
if Button=mbLeft then
  (Sender as TEdit).BeginDrag(false);
end;procedure TForm1.FormDragDrop(Sender, Source: TObject; X, Y: Integer);
var
  MyEdit:TEdit;
begin
if (Sender is TForm) and (Source is TEdit) then
begin
  MyEdit:=TEdit.Create(self);
  MyEdit.Parent:=self;
  MyEdit.Left:=x;
  MyEdit.Top:=y;
  MyEdit.Text:=(Source as TEdit).Text;
  MyEdit.Show;
end;
end;procedure TForm1.FormDragOver(Sender, Source: TObject; X, Y: Integer;
  State: TDragState; var Accept: Boolean);
begin
if Source is TEdit then
  Accept:=true;
end;

Answer 4

谢谢各位的参与和解答，其实要实现的功能我也基本实现，可是总觉得方法不是太好，所以我很想看看DELPHI中的相关源代码。