Хаотичное расположение картинок

[Putin-mode]

Добрый вечер!

Пишу небольшую программу для ребенка для изучения алфавита, доработать еще придется но работает, пока не начал доделывать остатки решил включить перемешивание букв, а вернее перемешивание Timage на самой форме при создании формы, наведите пожалуйста на нужный путь как перемешивать картинки местами, можно и по одной строке, но лучше чтоб все разом перемещались.

Спасибо!

Исходник прикрепил.

[dmitriegorovih]

Доброго времени суток! Попробуйте использовать 2 массива в 1 массиве использовать индекс имайджа и его положение, а во втором положение сравнивать с координатами на форме, имайджи "запихайте" в переменную TList и обращайтесь к ним тем индексами что в 1 массиве

[Putin-mode]

ох :-) Спасибо! Но чувствую без маленького примерчика мне с индексами и сравнением координат не разобраться, для меня это еще сложновато. А с помощью имеджлист это возможно сделать?

[Человек_Борща]

Putin-mode, у каждого компонента есть координаты на форме. Они в свойстве Left и Top.

В модуле System.Contnrs есть класс TComponentList(наследник TList и TObjectList), там храните свои компоненты, потом
от 1-го до последнего компонента списка, читайте свойства Lift и Top в переменную TPoint и создавайте из этих переменных массив, затем мешайте его и от 1-го до последнего заносите измененное координаты к компоненту, тот изменить свое положение относительно формы.

Хотя конечно в роли контейнера выступает форма, и если там только 10 эл-ов, и это кол-во само не меняется то можно и без списков т.к. в роли хранилища будет выступать ваша форма.

procedure SameProc;
var
  MassStorage:array of TPoint;
  i,troll:Integer;
  
begin
  with Form do
begin
  for I:=0 to ComponentsCount -1 do
  begin
    if (Components[i] is TImage) then
    begin
      SetLength(MassStorage,Length(MassStorage)+1); 
      MassStorage[Length(MassStorage)].X:=(Components[i] as TImage).Left;
      MassStorage[Length(MassStorage)].Y:=(Components[i] as TImage).Top;
    end;
  end;
  
  {Теперь вы работаете с массивом MassStorage где  мешаете элементы, меняете их расположение}

//Теперь надо вернуть все на место
  for I:=0 to ComponentsCount -1 do
  begin
    if (Components[i] is TImage) then
    begin
      (Components[i] as TImage).Left:=MassStorage[troll].X;
      (Components[i] as TImage).Top:=MassStorage[troll].Y;
      Troll:=troll+1; 
      If troll > Length(MassStorage) then raise Exception.CreateFmt('Ошибка, неверный индекс массива');
    end;
  end;

end;
end;

По-поводу анимации, тут уж не знаю.

[Putin-mode]

Спасибо всем! Щас пока пробую что то такое

var
n1,n2 : integer;
begin
 Randomize;
 n1 := Random(4);
 Randomize;
 n2 := Random(4);
 Image1.top:=0;

 Image2.top:=0;
  case n1 of

      1 : Image1.left:= 100;
      2 : Image1.left:= 200;
       3 : Image1.left:= 150;
     4 : Image1.left:= 250;
   end;

   case n2 of

      1 : Image2.left:= 300;
      2 : Image2.left:= 150;
       3 : Image2.left:= 100;
     4 : Image2.left:= 70;
   end;
 end;

если не получиться то буду стараться вникать в код Человек_Борща