动态创建一个对象，怎么用他提供的事件。

Question

象动态创建一个memo 想用他的ondragdrop 改怎么样用？

Answer 1

依样画葫芦写一个ondragdrop事件，然后赋给memo的ondragdrop事件

Answer 2

procedure MyDragDrop(Sender, Source: TObject; X, Y: Integer);
begin
  ......
end;
创建MyMemo：
MyMemo := TMemo.Create(Self);
MyMemo.Parent := Self;
MyMemo.OnDragDrop := MyDragDrop;
MyMemo.Show;

Answer 3

procedure MyDragDrop(Sender, Source: TObject; X, Y: Integer);(参数一致)
begin
  ......
end;
创建MyMemo：
MyRichEdit := TRichEdit.Create(Self);
MyRichEdit.Parent := Self;
MyRichEdit.OnDragDrop := MyDragDrop;
MyRichEdit.Show;