摘要:
循环遍历同类控件:form1中有groupbox1,内有多个speedbutton,控制其同时按下。var i:integer;beginfor i:=0 to form1.groupbox1.controlcount-1 doif form1.groupbox1.controls[i] is tspeedbutton thenbegintspeedbutton(form1.groupbox1.controls[i]).allowallup:=true;tspeedbutton(form1.groupbox1.controls[i]).groupindex:=i+1; tspeedbutt 阅读全文
posted @ 2011-03-27 07:11
yf658
阅读(1057)
评论(0)
推荐(0)
浙公网安备 33010602011771号