Minesweeper

[Mavarik]

Und selbst wenn Du Panel's nehmen willst...

Aber dann bitte nicht Zusammengeklickt sondern dynamisch erzeugen...

Delphi-Quellcode:

Procedure TForm1.InitFeld;
var
  X,Y       : Integer;
begin
  for X := 0 to XMAX do
   for Y := 0 to YMAX do
     begin
       MeinCoolesPanelArray[X,Y] := TPanel.Create(Self);
       MeinCoolesPanelArray[X,Y].Parent := self;
       MeinCoolesPanelArray[X,Y].Left := StartX + X*XSize;
       MeinCoolesPanelArray[X,Y].Top  := StartY + Y*YSize;
       MeinCoolesPanelArray[X,Y].Width := XSize-XRand;       
       MeinCoolesPanelArray[X,Y].Height:= YSize-YRand;
       MeinCollesPanelArray[X,Y].OnClick := PanelClick;
       ....
     end;
end;

Mavarik