小弟使用動態產生Shape的Object陣列於Panel上，想使用Shape OnMouseDown 的Even，但不知如何觸發該項事件？ ================= XXXXX.Cpp ....... for(int i=0;iTag = i 1; } ...... ================== XXXXX.h .... public: // User declarations TShape *Shape_R0[20];

Sorry!!程式碼有誤，更正  ================= >

Shagashaga您好，請參考以下程式碼，每個動態物件都有其事件    public:       void    __fastcall ShapeMouseMove(TObject *Sender,TShiftState  Shift, int X, int Y);    for(int i=0;i<20;i＋＋) { Shape_R0[i]=new TShape(Panel1); Shape_R0[i]->OnMouseMove = ShapeMouseMove; //指定動態物件的事件 } void __fastcall TChildFrame::ShapeMouseMove(TObject *Sender, TShiftState Shift, int X, int Y) { ShowMessage("1"); }