VPF::Пятнашки - Форум программистов

gsk

Дата 13.12.2008, 10:50 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 2
Регистрация: 8.12.2007
Где: Украина

Репутация: нет
Всего: нет

Нужно написать игру пятнашки. За основу передвижения цыфр взят такой алгоритм:

Код


var
  HideButton:TSpeedButton;
  hindex:integer;

procedure TForm1.SPB_1Click(Sender: TObject);
begin
   HideButton.Caption:=(Sender as TSpeedButton).Caption;
   HideButton.Show;
   HideButton:=(Sender as TSpeedButton);
   HideButton.Hide;
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
  HideButton:=TSpeedButton.Create(self);
  HideButton.Hide;
  HideButton.Caption:='';
  HideButton:=SPB_16;
end;

Тоесть, перемешение заголовков кнопок. Как сделать так что бы перемещались только соседние кнопки (на данный момент кнопки прыгают по всему полю в "свободную" 16 ячейку. (Исходник прилагаеться)

Это сообщение отредактировал(а) Alexeis - 13.12.2008, 19:30

Присоединённый файл ( Кол-во скачиваний: 3 )

___________.rar 170,67 Kb

Poseidon

Дата 13.12.2008, 14:03 (ссылка)

(нет голосов)

Загрузка ...

Delphi developer

Профиль
Группа: Комодератор
Сообщений: 5273
Регистрация: 4.2.2005
Где: Гомель, Беларусь

Репутация: 53
Всего: 133

Я бы для начала почитал бы хоть что-нибудь по теме. А потом бы еще скачал рабочий исходник и попробывал разобраться. А уже потом бы что-то делал (если бы не взял уже готовое)

--------------------

Если хочешь, что бы что-то работало - используй написанное,
если хочешь что-то понять - пиши сам...

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Delphi: Общие вопросы \| Следующая тема »