label рандомная смена

[Zibiv]

Всем здравствуйте! Ребята подскажите пожалуйста, как сделать, что бы на форме три label, по нажатию кнопки менялись между собой рандомно, то есть например вместо первого, третий, нажал кнопку, вместо третьего второй, и каждый раз поразному
Заранее благодарен!
Очень срочно нужно, просто есть задумка одна, а как сделать не знаю))

[Grag]

Что значит "менялись"? Обмен их Caption между собой??? Или все становились невидимы, кроме одного? Или все становились недоступны, кроме одного???

[Zibiv]

Caption должны остаться так же как и были каждый у своего.
Меняться между собой физически, то есть на месте первого должна оказаться первая. Занять ее место и т.д. И все они должны быть видимые и активные.

[artemavd]

Ну дак и переставляйте, каждый следующий lable на координаты, на которых находился предыдущий.

[Zibiv]

Ну это-то понятно)) вопрос в том, как сделать это рандомно))

[Grag]

Можно организовать массив свойств меток (Top,Left), а индексы выбирать рандомно (Random(3))...

[Zibiv]

Это идея, вот про массив свойств меток поподробней, если можно))

[Serge_Bliznykov]

например, так:

        private void button1_Click(object sender, EventArgs e)
        {
            Int32[] CoordX = new Int32[3];
            CoordX[0] = label1.Left;
            CoordX[1] = label2.Left;
            CoordX[2] = label3.Left;
            Int32 TempCoordX;

            int k2 = 0;
            Random rand = new Random();

            for (int i = 0; i < 10; i++)
            {
                for (int k1 = 0; k1 < 3; k1++)
                {
                    while (true)
                    {
                        k2 = rand.Next(3);
                        if (k1 != k2) { break; }
                    }
                TempCoordX = CoordX[k1];
                CoordX[k1] = CoordX[k2];
                CoordX[k2] = TempCoordX;
                }     
            }
            label1.Left = CoordX[0];
            label2.Left = CoordX[1];
            label3.Left = CoordX[2];
        }

[Zibiv]

Ууу спасибо) Но я забыл написать, что делаю на Delphi)) Так что я был бы очень рад если код для Delphi был)))

[Serge_Bliznykov]

да не вопрос.
вот, даже улучшенный вариант (повторы не допускаются)

procedure TForm1.Button1Click(Sender: TObject);
var CoordX : array[0..2] of Integer;
  TempCoordX : Integer;
  i, k2, k1 : integer;
begin
   CoordX[0] := label1.Left;
   CoordX[1] := label2.Left;
   CoordX[2] := label3.Left;

   Randomize;

   repeat
     for i:=1 to 10 do
       for k1:=0 to 2 do begin
         repeat
           k2 := random(3);
         until k1<>k2;
         TempCoordX := CoordX[k1];
         CoordX[k1] := CoordX[k2];
         CoordX[k2] := TempCoordX;
       end;
   until (label1.Left <> CoordX[0]) or
           (label2.Left <> CoordX[1]) or (label3.Left <> CoordX[2]);
   label1.Left := CoordX[0];
   label2.Left := CoordX[1];
   label3.Left := CoordX[2];

end;