Radnom - Funktion + .visible:= true

[bitsetter]

Hi,

sollen pro Block zufällig 2 TPanel versteckt werden oder soll nur einmal für alle Blöcke eine Ebene ausgewählt werden?

EDIT: Der Fragesteller ist gerade wieder offline, falls von jeden Block zufällig einer ausgewählt werden soll hier mein Lösungsvorschlag:

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
const
  Bloecke = 4;
var
  MyPanel: Array [1..Bloecke, 0..2] of TPanel;
  x, y: integer;
begin
  MyPanel[1][0]:= Panel1;//Block 1
  MyPanel[1][1]:= Panel2;
  MyPanel[1][2]:= Panel3;

  MyPanel[2][0]:= Panel4;//Block 2
  MyPanel[2][1]:= Panel5;
  MyPanel[2][2]:= Panel6;

  MyPanel[3][0]:= Panel7;//Block 3
  MyPanel[3][1]:= Panel8;
  MyPanel[3][2]:= Panel9;

  MyPanel[4][0]:= Panel10;//Block 4
  MyPanel[4][1]:= Panel11;
  MyPanel[4][2]:= Panel12;

  for x := 1 to Bloecke do//reset
    for y := 0 to 2 do
      MyPanel[x][y].Visible:= false;

  for x := 1 to Bloecke do
    MyPanel[x][Random(3)].Visible:= true;
end;