动态生成了几个SpeedButton控件,怎么样用Click事件来处理生成的每个不同的SpeedButton的Click事件 动态生成了几个SpeedButton控件,怎么样用Click事件来处理生成的每个不同的SpeedButton的Click事件我用程序动态生成了几个控件,怎么样来执行对应有SpeedButton的Click事件? 解决方案 » 免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货 就地打字的,大概就是这样子:for a := 0 to 5 dobeginSpeedButton.Onclick := YourClick;SpeedButton.Tag := a;end;procedure TForm1.YourClick(Sender: TObject);...i := (Sender as TSpeedButton).tag;case i of0:1:2:...end; CLOB类型的大段文字数据,怎样保留格式读到memo里? delphi三层数据更新,请高手指点下 有没有串口通信控件是同步的? 一个关于类定义的入门问题 query的数据提交问题? 毕业了, 就不能经常来CSDN,跟朋友们说声再见,散分 DELPHI中怎么实现通讯 ADO连接access数据库更新备注类型的字段,再post的时候报错 兄弟们帮帮忙,急。。。。。。 谁能帮我把 BCB 的程序改成 Delphi 的? 求代码 RBuilder 打印时停顿两秒钟是怎么回事。
for a := 0 to 5 do
begin
SpeedButton.Onclick := YourClick;
SpeedButton.Tag := a;
end;procedure TForm1.YourClick(Sender: TObject);
...
i := (Sender as TSpeedButton).tag;
case i of
0:
1:
2:
...
end;