客服电话
APP下载
迪恩网络APP
随时随地掌握行业动态
官方微信
扫描二维码
关注迪恩网络微信公众号
|
循环遍历同类控件：
form1中有groupbox1，内有多个speedbutton,控制其同时按下。 var i:integer; begin for i:=0 to form1.groupbox1.controlcount-1 do if form1.groupbox1.controls[i] is tspeedbutton then begin tspeedbutton(form1.groupbox1.controls[i]).allowallup:=true; tspeedbutton(form1.groupbox1.controls[i]).groupindex:=i+1; tspeedbutton(form1.groupbox1.controls[i]).down:=true; end;
结合数据库使用，表示表rz中的rz字段（bit），为1则按下，为0则抬起。 var i:integer; begin i:=0; while not adotable1.eof then if adotable1.fields[1].asboolen=true then
begin tspeedbutton(form1.groupbox1.controls[i]).allowallup:=true; tspeedbutton(form1.groupbox1.controls[i]).groupindex:=i+1; tspeedbutton(form1.groupbox1.controls[i]).down:=true; end else
begin tspeedbutton(form1.groupbox1.controls[i]).allowallup:=true; tspeedbutton(form1.groupbox1.controls[i]).groupindex:=i+1; tspeedbutton(form1.groupbox1.controls[i]).down:=false; end; inc(i); adotable1.next; end;
遍历Panel组件上的所有控件：
procedure frmMain.CLS; //主窗体自定义事件CLS
var i:integer; begin for i:=0 to panel5.ControlCount -1 do begin if panel5.Controls[i] is TEdit then //Edit组件 begin ((panel5.Controls[i]) as TEdit).Text:=''; ((panel5.Controls[i]) as TEdit).Enabled:=true; end else if panel5.Controls[i] is TComboBox then //ComboBox组件 begin ((panel5.Controls[i]) as TComboBox).Text:=''; ((panel5.Controls[i]) as TComboBox).Enabled:=true; end else if panel5.Controls[i] is TDateTimePicker then //DateTimePicker组件 begin ((panel5.Controls[i]) as TDateTimePicker).Enabled:=true; ((panel5.Controls[i]) as TDateTimePicker).DateTime:=now(); end; end; end; 这个过程主要是清空panel5组件Edit、ComboBox组件Text内容、把DateTimePicker组件日期设为当前日期，并使panel5所有控件可用 ......
|
2023-10-27
2022-08-15
2022-08-17
2022-09-23
2022-08-13
六六分期app的软件客服如何联系？不知道吗？加qq群【895510560】即可！标题：六六分期
今天小编告诉大家如何处理win10系统火狐flash插件总是崩溃的问题，可能很多用户都不知
今天小编告诉大家如何对win10系统删除桌面回收站图标进行设置，可能很多用户都不知道
今天小编告诉大家如何对win10系统电脑设置节能降温的设置方法，想必大家都遇到过需要
我们在使用xp系统的过程中,经常需要对xp系统无线网络安装向导设置进行设置，可能很多
今天小编告诉大家如何处理win7系统玩cf老是与主机连接不稳定的问题，可能很多用户都不
电脑对日常生活的重要性小编就不多说了，可是一旦碰到win7系统设置cf烟雾头的问题，很
我们在日常使用电脑的时候，有的小伙伴们可能在打开应用的时候会遇见提示应用程序无法
今天小编告诉大家如何对win7系统打开vcf文件进行设置，可能很多用户都不知道怎么对win
今天小编告诉大家如何对win10系统s4开启USB调试模式进行设置，可能很多用户都不知道怎
请发表评论