同类控件的统一操作(以TCheckBox为例)
摘要:
Procedure UnCheck; var i: integer; begin for i := 0 to GroupBox1.ControlCount-1 do begin if GroupBox1.Controls[i].ClassName = 'TCheckBox' then begin TCheckBox(GroupBox1.Control... 阅读全文
posted @ 2008-12-15 15:24 UfoID 阅读(243) 评论(0) 推荐(0) 编辑