起首定义触发事宜的过程procedure btnEvent();begin .........接着将该过程动态设置到响应控件的响应事宜上去var btn : TButton;begin btn := TButton.create(self);end; ..... //这里设置动态控件的属性 btn.OnClick := btnEvent(); //事宜赋值end;
with timage.create(self) do begin ...大大楷是如许的。....end;
你的请求不清跋扈，是写在元件里？照样写在法度榜样里？
内容全部来源于网络收集，如有侵权，请联系网站删除：QQ：24596024