如何动态创建一个panel???
最近小弟在做一个和监控有关的模块?
问题1:
从后台程序发给我了一个字符串,里面有故障机器的数据。我现在想实现的是按照故障的等级,用panel控件加不同的颜色来代表故障机器。由于故障机器的个数是不定的,举个例子,如果有15台,就要在form2里面显示15个panel,如果有2台,就显示2个panel,没有就不显示panel,没有最大的故障机数字。我如何来处理panel控件呢?
问题2:
我如何实现没10分钟固定执行一个函数。来实现监控的目的。。请给详细的程序。因为我是处学者。
谢谢大家

解决方案 »

  1.   

    1.设置一个动态数组pan :array of TPanel;
    2.用Timer控件,触发时间为10分钟一次,然后在它的OnTimer里面写你的函数。
      

  2.   

    procedure ErrorData(MachineNum:integer);
    var
      myPanel:array of TPanel;
      i:integer;
    begin
     
     if MachineNum>0 then
     begin
       setLength(mypanel,MachineNum);
       for i:=0 to MachineNum-1 do
       begin
         myPanel[i]:=TPanel.create(self);
         myPanel[i].parent:=self;
         mypanel[i].SetBounds(100,10+25*i,75,25);
         mypanel[i].caption:=IntTostr(i);
       end;
      end;
    end;
      

  3.   

    谢谢:不过为什么: myPanel:array of TPanel;编译不过。是这样设置的动态数珠吗?