for i:=1 to 10 do
begin
with TButton.Create(self) do
begin
Caption := 'Button'+ IntToStr(i);
OnClick := MyButtonClick; // MyButtonClick为自己的事件处理程序
end;
end;
begin
with TButton.Create(self) do
begin
Caption := 'Button'+ IntToStr(i);
OnClick := MyButtonClick; // MyButtonClick为自己的事件处理程序
end;
end;
解决方案 »
- 如何用frReport打印从数据库查询出来的图片?
- 100分。在线等待,关于
- 有人知道在哪可以下載crystal reports企業版嗎?給最終用戶做分析報表的
- 请 ychuiming(飞天),hkbarton(宁静至远||淡泊明志) 进来接分
- 很久没有出像癸花宝典之类的应用技巧集锦了,大家都有什么绝招,都来说说!!
- 怎么样取得IE里的地址!以及怎么样把自己的程序加到IE 的工具栏里!
- johnsonrao在吗?
- delphi請教前輩
- 怎样改变DELPHI中存放文件的初始踟径?
- 请问单机可否开发多层结构的程序,要一些什么条件?
- 李维的专栏有谁知道?
- 那位高手帮我解决Delphi+SQL Server远程访问的问题?
我这样做了,可是没办法将该事件排到其他事件之前(TspinEdit的onclick事件)。怎么办?