игра - собери картинку

[spydark91]

разбил картинку на 9 фрагментов и случайным образом их расположил(скрин). написал функции,которые возвращают строку--
8 5 7 9 0 8 7 3 0.
первая цифра - позиция свободного квадрата,в который можно перемещать фрагменты (они идут в последовательности 1 2 3
4 5 6
7 8 9)

2,3,4,5 цифры - позиции тех фрагментов которые можно перемещать (5 цифра не ноль только,если первая цифра =5)
6,7,8,9 цифры - реальные номера фрагментов(имаги от 1 до 9)
переменная take.number это позиция свободного квадрата(т.е. то первая цифра из той строки)
прикрепляю exe, и картинку,на которой можно попробовать
потаскайте там картинки,потому что не всегда не работает.попробуйте переместить картинки в свободный квадрат и вернуть ее на место,не получается. не понимаю почему
и вот код отпускания кнопки с фрагмента
posi - хранит топ и лефт картинки,чтоьы она вставала на прежнее место

 
procedure TForm2.Image7MouseUp(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
   var i:integer;
begin
press[7]:=false;
case take.number of
1:
  begin
    if (((sender as timage).Left in [3..176])and((sender as timage).Top in [3..176])) then
      begin
        (sender as timage).Left:=8;
        (sender as timage).Top:=8;
      end
          else
            begin
              (sender as timage).Left:=posi.left;
              (sender as timage).Top:=posi.top;
            end;
  end;
 
2:
  begin
    if (((sender as timage).Left>179)and((sender as timage).Left<352)and((sender as timage).Top>3)and((sender as timage).Top<176)) then
      begin
        (sender as timage).Left:=184;
        (sender as timage).Top:=8;
      end
          else
            begin
              (sender as timage).Left:=posi.left;
              (sender as timage).Top:=posi.top;
            end;
  end;
 
3:
  begin
    if (((sender as timage).Left>355)and((sender as timage).Left<528)and((sender as timage).Top>3)and((sender as timage).Top<176)) then
      begin
        (sender as timage).Left:=360;
        (sender as timage).Top:=8;
      end
          else
            begin
              (sender as timage).Left:=posi.left;
              (sender as timage).Top:=posi.top;
            end;
  end;
 
4:
  begin
    if (((sender as timage).Left>3)and((sender as timage).Left<176)and((sender as timage).Top>179)and((sender as timage).Top<352)) then
      begin
        (sender as timage).Left:=8;
        (sender as timage).Top:=184;
      end
          else
            begin
              (sender as timage).Left:=posi.left;
              (sender as timage).Top:=posi.top;
            end;
  end;
 
5:
  begin
    if (((sender as timage).Left>179)and((sender as timage).Left<352)and((sender as timage).Top>179)and((sender as timage).Top<352)) then
      begin
        (sender as timage).Left:=184;
        (sender as timage).Top:=184;
      end
          else
            begin
              (sender as timage).Left:=posi.left;
              (sender as timage).Top:=posi.top;
            end;
  end;
 
6:
  begin
    if (((sender as timage).Left>355)and((sender as timage).Left<528)and((sender as timage).Top>179)and((sender as timage).Left<352)) then
      begin
        (sender as timage).Left:=360;
        (sender as timage).Top:=184;
      end
          else
            begin
              (sender as timage).Left:=posi.left;
              (sender as timage).Top:=posi.top;
            end;
  end;
 
7:
  begin
    if (((sender as timage).Left in [3..176])and((sender as timage).Top>355)and((sender as timage).Top<528)) then
      begin
        (sender as timage).Left:=8;
        (sender as timage).Top:=360;
      end
          else
            begin
              (sender as timage).Left:=posi.left;
              (sender as timage).Top:=posi.top;
            end;
  end;
 
8:
  begin
    if (((sender as timage).Left>179)and((sender as timage).Left<352)and((sender as timage).Top>355)and((sender as timage).Top<528)) then
      begin
        (sender as timage).Left:=184;
        (sender as timage).Top:=360;
      end
          else
            begin
              (sender as timage).Left:=posi.left;
              (sender as timage).Top:=posi.top;
            end;
  end;
 
9:
  begin
    if (((sender as timage).Left>355)and((sender as timage).left<528)and((sender as timage).Top>355)and((sender as timage).Top<528)) then
      begin
        (sender as timage).Left:=360;
        (sender as timage).Top:=360;
      end
          else
            begin
              (sender as timage).Left:=posi.left;
              (sender as timage).Top:=posi.top;
            end;
  end;
 
end;
 
for i:=1 to 4 do
  begin
    if realnumb[i]<>0 then
      TImage(form2.FindComponent('Image'+inttostr(realnumb[i]))).Enabled:=false;
  end;
timer1.Enabled:=true;
 
 
 
end;
 
 	
    		  spydark91

[Leo08]

Я так понимаю Вы делаете что-то типа игры "Пятнашки". Вот Вам три версии, раньше их писал. Там пример на кнопках, но можно переделать и под картинки.

[spydark91]

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

так как строка возвращает правелные цифры,то я не понимаю почему некоторые имаги обрабатываются правельно,другие нет

[spydark91]

процедура,которая делает доступной соседние от свободного места имаги

procedure TForm2.enabl;
var
takestring:string;
long,i:integer;
begin
take:=form2.catchfree;{процедура возвращает позицию свободного квадрата(от 1 до 9,первая цифра в строке)}
takestring:=form2.findfriend(take.number);{возвращает строку из позиция-соседей свободной имаги}
long:=length(takestring);
for i:=1 to long do
begin
  coun[i]:=strtoint(takestring[i]);
  if coun[i]<>0 then
    begin
      realnumb[i]:=form2.postonumb(coun[i]);{процедура превращает позицию соседей имаги в реальные имена имаг,например позиция=2,а имя image7}
      TImage(form2.FindComponent('Image'+inttostr(form2.postonumb(coun[i])))).Enabled:=true;{делаем их доступными}
    end;
end;
memo1.Lines.Add(inttostr(take.number)+'  '+inttostr(coun[1])+'  '+inttostr(coun[2])+'  '+inttostr(coun[3])+'  '+inttostr(coun[4])+'  '+inttostr(realnumb[1])+'  '+inttostr(realnumb[2])+'  '+inttostr(realnumb[3])+'  '+inttostr(realnumb[4]));





end;

[spydark91]

никто не поможет..?