A
ActFish
Unregistered / Unconfirmed
GUEST, unregistred user!
问题描述:比如窗体上有个Button1,DataSource1...,他们的事件如下:procedure TForm1.Button1Click(Sender: TObject);begin ShowMessage('Button1的onclick事件');end;procedure TForm1.DataSource1DataChange(Sender: TObject; Field: TField);begin ShowMessage('DataSource1的OnDataChange事件');end;而我还有个特殊的过程(或者普通过程也可以)是:procedure TForm1.MyProc(Sender: TObject;EveName:string);begin ShowMessage('执行了'+TComponent(Sender).name+'的'+EveName+事件');end;我的意思是在能够自动在Button1点击、DataSource1的OnDataChange之后,能够自动执行MyProc这个过程;请不要说在代码中写,因为我事先并不知道都哪些事件、什么类型(比如TNotifyEvent)的事件会自动执行这个过程,不知道我描述清楚没有?