请问怎样创建一个image的控件数组，并且动态的分配这些image的颜色呢？

Question

高分求助

Answer 1

var
   MyB: array of TImage;
begin
   MyB[0]:=TImage.Create(Self);
   MyB[0].Parent:=Form1;
   MyB[0].Left:=..;
   MyB[0].Top:=..;
   MyB[0].Canvas.brush.color := ..; 
   MyB[0].Show;
...可用WHITE
end;如果要分配不同的颜色，可以用case语句

Answer 2

var
   MyB: array of TImage;
begin
   MyB[0]:=TImage.Create(Self);
   MyB[0].Parent:=Form1;
   MyB[0].Left:=..;
   MyB[0].Top:=..;
   MyB[0].Canvas.brush.color := ..; 
   MyB[0].Show;
...可用WHITE
end;