RegisterDragTarget(TDragFields.ClassName, TFieldsTarget);
procedure RegisterDragTarget(const SourceName: string; TargetClass: TDragTargetClass);
begin
if Assigned(RegisterDragTargetProc) then
RegisterDragTargetProc(SourceName, TargetClass);
end;
TRegisterDragTargetProc = procedure(const SourceName: string;
TargetClass: TDragTargetClass);
var
RegisterDragTargetProc: TRegisterDragTargetProc;
这个RegisterDragTargetProc函数指针是Delphi实现的,可Delphi不会公开原码的,就象
IFormDesigner实现的原码一样,你照它的样用就算了,试试再说