Ver Mensaje Individual
  #6  
Antiguo 27-03-2009
Avatar de Mindfield
Mindfield Mindfield is offline
Miembro
 
Registrado: mar 2009
Posts: 26
Reputación: 0
Mindfield Va por buen camino
perdon este es el codigo
Código Delphi [-]
begin
  contador := contador + 1;
  t:= 0;
  l:= 0;
  if contador < 15 then
    begin
      For t:= 0 to Random(372) do;     //top 0 a 372
      For l:= 0 to Random(575) do;    //left 0 a 575
      begin
        Image2.Top := t;
        Image2.Left:= l;
      end;

      For t:= 0 to Random(372) do;     //top 0 a 372
      For l:= 0 to Random(575) do;    //left 0 a 575
      begin
        Image3.Top := t;
        Image3.Left:= l;
      end;

      begin
        Image4.Top := t;
        Image4.Left:= l;
      end;

      For t:= 0 to Random(372) do;     //top 0 a 372
      For l:= 0 to Random(575) do;    //left 0 a 575
      begin
        Image5.Top := t;
        Image5.Left:= l;
      end;

      begin
        Image6.Top := t;
        Image6.Left:= l;
      end;

      For t:= 0 to Random(372) do;     //top 0 a 372
      For l:= 0 to Random(575) do;    //left 0 a 575
      begin
        Image7.Top := t;
        Image7.Left:= l;
      end;

      begin
        Image8.Top := t;
        Image8.Left:= l;
      end;

      For t:= 0 to Random(372) do;     //top 0 a 372
      For l:= 0 to Random(575) do;    //left 0 a 575
      begin
        Image9.Top := t;
        Image9.Left:= l;
      end;

      begin
        Image10.Top := t;
        Image10.Left:= l;
      end;

      For t:= 0 to Random(372) do;     //top 0 a 372
      For l:= 0 to Random(575) do;    //left 0 a 575
      begin
        Image11.Top := t;
        Image11.Left:= l;
      end;
    end;

pero yo no quiero que una imagen este en la misma posicion que otra y si lo verifico las posiciones con un if es correcto ? , y tambien pedir perdón porque no estoy creando imagenes , las imagenes ya estan en el image ! , no se si sirve de algo lo que estoy diciendo ?
Responder Con Cita