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

[ruangl]

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

[flyforlove]

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

[ruangl]

为情飞:你所指的拖拉事件是属于哪个类的呀?能告诉我吗?

[ruangl]

也就是说,它触发了哪些对象的哪些方法?

[dyf2001]

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

[ruangl]

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

[flyforlove]

下面这段代码是托拽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;