Z zxsdelphi Unregistered / Unconfirmed GUEST, unregistred user! 2006-04-04 #1 当动态创建了多个组件时，如何作到可以响应任一动态组件的事件呢？
F formality Unregistered / Unconfirmed GUEST, unregistred user! 2006-04-04 #2 比如你新建的是个button（mybutton1）要这个button响应onclick事件 事先定义个一过程procedure TForm1.mybuttononclick(Sender: TObject); 在mybutton1:=Tbutton.create(self)//之后 写mybutton1.onclick:=mybuttononclick;
比如你新建的是个button（mybutton1）要这个button响应onclick事件 事先定义个一过程procedure TForm1.mybuttononclick(Sender: TObject); 在mybutton1:=Tbutton.create(self)//之后 写mybutton1.onclick:=mybuttononclick;
L lovellybaby Unregistered / Unconfirmed GUEST, unregistred user! 2006-04-08 #3 我在补充以下 type TForm1 = class(TForm) ........ private { Private declarations } public procedure mybuttononclick(Sender: TObject);//自定过程 end; ..... implementation procedure TForm1.mybuttononclick(Sender: TObject); begin //自定事件触发过程的响应。 end;
我在补充以下 type TForm1 = class(TForm) ........ private { Private declarations } public procedure mybuttononclick(Sender: TObject);//自定过程 end; ..... implementation procedure TForm1.mybuttononclick(Sender: TObject); begin //自定事件触发过程的响应。 end;
D dywapple Unregistered / Unconfirmed GUEST, unregistred user! 2006-04-08 #4 不同的控件会有不同的事件，例如OnClick OnDblClick OnEnter OnMouseDown等等，楼主要仔细一下
