Dibujar laberinto en formulario

[[Lepe]]

¿cuala?

para crear un Frame, File -> New -> Frame

Es como un Form, puedes poner labels, shapes, Edits.... lo que quieras sobre el frame.

Ahora en tu Form1 quieres crear 10 frames, en el código de un botón puedes poner algo así:

Código Delphi [-]
var i, LastLeft, LastTop :integer;
     F :TMiFrame; // el que has creado:
begin 
  LastLeft := 20;
  LastTop := 20;
  for i:= 1 to 20 do
  begin 
     F := TMiFrame.Create(self);
     F.top := lastTop;
     F.Left := LastLeft;
     inc(LastLeft, F.width);
     if LastLeft  > 700 then
     begin 
       LastLeft:= 20;
       LastTop := LastTop + F.Height;
    end;
  end;

Saludos