说三道四技术文摘-感悟人生的经典句子
说三道四 > 文档快照

如和用动态变量表示控件名,如有控件checkbox1,checkbox2,checkbox3...(马上结帖)

编辑:说三道四文库 发布时间:2018-08-17 08:40
HTML文档下载 WORD文档下载 PDF文档下载
如和用动态变量表示控件名,如有控件checkbox1,checkbox2,checkbox3...,如何用变量i(integer)来代替1、2等以表示控件名》
你为什么不用checklistbox呀,直接用checklistbox1.items.checked[index] := true
procedure TForm1.Button1Click(Sender: TObject);
var
i  :integer;
begin
  i:=1;
  showmessage((FindComponent('edit'+inttostr(i)) as TEdit).text);
end;
---------------------------------------------------------------------
利用控件的tag属性即可.
ch:TControl;
begin
   Table1.Open;
   i:=0;
   if(Table1.RecordCount=0)then exit
    else begin
      Table1.first;
      for j:=1 to Table1.RecordCount do
      begin
        ch:=GroupBox1.Controls[i];
        Tcheckbox(ch).Caption:=Table1.FieldByname('station').Asstring;
        ch.Visible:=true;
备案号:鲁ICP备13029499号-2 说三道四 www.s3d4.cn 说三道四技术文摘