Сергей Вячеславович Хвощев (глобус) - Игры на Делфи
Название: | Игры на Делфи | |
Автор: | Сергей Вячеславович Хвощев (глобус) | |
Жанр: | Программы, Pascal, Delphi, Lazarus и т.п. | |
Изадано в серии: | неизвестно | |
Издательство: | неизвестно | |
Год издания: | 2022 | |
ISBN: | неизвестно | |
Отзывы: | Комментировать | |
Рейтинг: | ||
Поделись книгой с друзьями! Помощь сайту: донат на оплату сервера |
Краткое содержание книги "Игры на Делфи "
Аннотация к этой книге отсутствует.
Читаем онлайн "Игры на Делфи ". [Страница - 3]
- 1
- 2
- 3
- 4
- 5
- . . .
- последняя (20) »
then
Image27.Position := Rectangle11.Position;
if n = 28 then
Image28.Position := Rectangle11.Position;
if n = 29 then
Image29.Position := Rectangle11.Position;
if n = 30 then
Image30.Position := Rectangle11.Position;
if n = 31 then
Image31.Position := Rectangle11.Position;
if n = 32 then
Image32.Position := Rectangle11.Position;
end;
procedure TForm1.Rectangle12Click(Sender: TObject);
begin
if n = 1 then
Image1.Position := Rectangle12.Position;
if n = 2 then
Image2.Position := Rectangle12.Position;
if n = 3 then
Image3.Position := Rectangle12.Position;
if n = 4 then
Image4.Position := Rectangle12.Position;
if n = 5 then
Image5.Position := Rectangle12.Position;
if n = 6 then
Image6.Position := Rectangle12.Position;
if n = 7 then
Image7.Position := Rectangle12.Position;
if n = 8 then
Image8.Position := Rectangle12.Position;
if n = 9 then
Image9.Position := Rectangle12.Position;
if n = 10 then
Image10.Position := Rectangle12.Position;
if n = 11 then
Image11.Position := Rectangle12.Position;
if n = 12 then
Image12.Position := Rectangle12.Position;
if n = 13 then
Image13.Position := Rectangle12.Position;
if n = 14 then
Image14.Position := Rectangle12.Position;
if n = 15 then
Image15.Position := Rectangle12.Position;
if n = 16 then
Image16.Position := Rectangle12.Position;
if n = 17 then
Image17.Position := Rectangle12.Position;
if n = 18 then
Image18.Position := Rectangle12.Position;
if n = 19 then
Image19.Position := Rectangle12.Position;
if n = 20 then
Image20.Position := Rectangle12.Position;
if n = 21 then
Image21.Position := Rectangle12.Position;
if n = 22 then
Image22.Position := Rectangle12.Position;
if n = 23 then
Image23.Position := Rectangle12.Position;
if n = 24 then
Image24.Position := Rectangle12.Position;
if n = 25 then
Image25.Position := Rectangle12.Position;
if n = 26 then
Image26.Position := Rectangle12.Position;
if n = 27 then
Image27.Position := Rectangle12.Position;
if n = 28 then
Image28.Position := Rectangle10.Position;
if n = 29 then
Image29.Position := Rectangle12.Position;
if n = 30 then
Image30.Position := Rectangle12.Position;
if n = 31 then
Image31.Position := Rectangle12.Position;
if n = 32 then
Image32.Position := Rectangle12.Position;
end;
procedure TForm1.Rectangle13Click(Sender: TObject);
begin
if n = 1 then
Image1.Position := Rectangle13.Position;
if n = 2 then
Image2.Position := Rectangle13.Position;
if n = 3 then
Image3.Position := Rectangle13.Position;
if n = 4 then
Image4.Position := Rectangle13.Position;
if n = 5 then
Image5.Position := Rectangle13.Position;
if n = 6 then
Image6.Position := Rectangle13.Position;
if n = 7 then
Image7.Position := Rectangle13.Position;
if n = 8 then
Image8.Position := Rectangle13.Position;
if n = 9 then
Image9.Position := Rectangle13.Position;
if n = 10 then
Image10.Position := Rectangle13.Position;
if n = 11 then
Image11.Position := Rectangle13.Position;
if n = 12 then
Image12.Position := Rectangle13.Position;
if n = 13 then
Image13.Position := Rectangle13.Position;
if n = 14 then
Image14.Position := Rectangle13.Position;
if n = 15 then
Image15.Position := Rectangle13.Position;
if n = 16 then
Image16.Position := Rectangle13.Position;
if n = 17 then
Image17.Position := Rectangle13.Position;
if n = 18 then
Image18.Position := Rectangle13.Position;
if n = 19 then
Image19.Position := Rectangle13.Position;
if n = 20 then
Image20.Position := Rectangle13.Position;
if n = 21 then
Image21.Position := Rectangle13.Position;
if n = 22 then
Image22.Position := Rectangle13.Position;
if n = 23 then
Image23.Position := Rectangle13.Position;
if n = 24 then
Image24.Position := Rectangle13.Position;
if n = 25 then
Image25.Position := Rectangle13.Position;
if n = 26 then
Image26.Position := Rectangle13.Position;
if n = 27 then
Image27.Position := Rectangle13.Position;
if n = 28 then
Image28.Position := Rectangle13.Position;
if n = 29 then
Image29.Position := Rectangle13.Position;
if n = 30 then
Image30.Position := Rectangle13.Position;
if n = 31 then
Image31.Position := Rectangle13.Position;
if n = 32 then
Image32.Position := Rectangle13.Position;
end;
procedure TForm1.Rectangle14Click(Sender: TObject);
begin
if n = 1 then
Image1.Position := Rectangle14.Position;
if n = 2 then
Image2.Position := Rectangle14.Position;
if n = 3 then
Image3.Position := Rectangle14.Position;
if n = 4 then
Image4.Position := Rectangle14.Position;
if n = 5 then
Image5.Position := Rectangle14.Position;
if n = 6 then
Image6.Position := Rectangle14.Position;
if n = 7 then
Image7.Position := Rectangle14.Position;
if n = 8 then
Image8.Position := Rectangle14.Position;
if n = 9 then
Image9.Position := Rectangle14.Position;
if n = 10 then
Image10.Position := Rectangle14.Position;
if n = 11 then
Image11.Position := Rectangle14.Position;
if n = 12 then
Image12.Position := Rectangle14.Position;
if n = 13 then
Image13.Position := Rectangle14.Position;
if n = 14 then
Image14.Position := Rectangle14.Position;
if n = 15 then
Image15.Position := Rectangle14.Position;
if n = 16 then
Image16.Position := Rectangle14.Position;
if n = 17 then
Image17.Position := Rectangle14.Position;
if n = 18 then
Image18.Position := Rectangle14.Position;
if n = 19 then
Image19.Position := Rectangle14.Position;
if n = 20 then
Image20.Position := Rectangle14.Position;
if n = 21 then
Image21.Position := Rectangle14.Position;
if n = 22 then
Image22.Position := Rectangle14.Position;
if n = 23 then
Image23.Position := Rectangle14.Position;
if n = 24 then
Image24.Position := Rectangle14.Position;
if n = 25 then
Image25.Position := Rectangle14.Position;
if n = 26 then
Image26.Position := Rectangle14.Position;
if n = 27 then
Image27.Position := Rectangle14.Position;
if n = 28 then
Image28.Position := Rectangle14.Position;
if n = 29 then
Image29.Position := Rectangle14.Position;
if n = 30 then
Image30.Position := Rectangle14.Position;
if n = 31 then
Image31.Position := Rectangle14.Position;
if n = 32 then
Image32.Position := Rectangle14.Position;
end;
procedure TForm1.Rectangle15Click(Sender: TObject);
begin
if n = 1 then
Image1.Position := Rectangle15.Position;
if n = 2 then
Image2.Position := Rectangle15.Position;
if n = 3 then
Image3.Position := Rectangle15.Position;
if n = 4 then
Image4.Position := Rectangle15.Position;
if n = 5 then
Image5.Position := Rectangle15.Position;
if n = 6 then
Image6.Position := Rectangle15.Position;
if n = 7 then
Image7.Position := Rectangle15.Position;
if n = 8 then
Image8.Position := Rectangle15.Position;
if n = 9 then
Image9.Position := Rectangle15.Position;
if n = 10 then
Image10.Position := Rectangle15.Position;
if n = 11 then
Image11.Position := Rectangle15.Position;
if n = 12 then
Image12.Position := Rectangle15.Position;
if n = 13 then
Image13.Position := Rectangle15.Position;
if n = 14 then
Image14.Position := Rectangle15.Position;
if n = 15 then
Image15.Position := Rectangle15.Position;
if n = 16 then
Image16.Position := Rectangle15.Position;
if n = 17 then
Image17.Position := Rectangle15.Position;
if n = 18 --">
Image27.Position := Rectangle11.Position;
if n = 28 then
Image28.Position := Rectangle11.Position;
if n = 29 then
Image29.Position := Rectangle11.Position;
if n = 30 then
Image30.Position := Rectangle11.Position;
if n = 31 then
Image31.Position := Rectangle11.Position;
if n = 32 then
Image32.Position := Rectangle11.Position;
end;
procedure TForm1.Rectangle12Click(Sender: TObject);
begin
if n = 1 then
Image1.Position := Rectangle12.Position;
if n = 2 then
Image2.Position := Rectangle12.Position;
if n = 3 then
Image3.Position := Rectangle12.Position;
if n = 4 then
Image4.Position := Rectangle12.Position;
if n = 5 then
Image5.Position := Rectangle12.Position;
if n = 6 then
Image6.Position := Rectangle12.Position;
if n = 7 then
Image7.Position := Rectangle12.Position;
if n = 8 then
Image8.Position := Rectangle12.Position;
if n = 9 then
Image9.Position := Rectangle12.Position;
if n = 10 then
Image10.Position := Rectangle12.Position;
if n = 11 then
Image11.Position := Rectangle12.Position;
if n = 12 then
Image12.Position := Rectangle12.Position;
if n = 13 then
Image13.Position := Rectangle12.Position;
if n = 14 then
Image14.Position := Rectangle12.Position;
if n = 15 then
Image15.Position := Rectangle12.Position;
if n = 16 then
Image16.Position := Rectangle12.Position;
if n = 17 then
Image17.Position := Rectangle12.Position;
if n = 18 then
Image18.Position := Rectangle12.Position;
if n = 19 then
Image19.Position := Rectangle12.Position;
if n = 20 then
Image20.Position := Rectangle12.Position;
if n = 21 then
Image21.Position := Rectangle12.Position;
if n = 22 then
Image22.Position := Rectangle12.Position;
if n = 23 then
Image23.Position := Rectangle12.Position;
if n = 24 then
Image24.Position := Rectangle12.Position;
if n = 25 then
Image25.Position := Rectangle12.Position;
if n = 26 then
Image26.Position := Rectangle12.Position;
if n = 27 then
Image27.Position := Rectangle12.Position;
if n = 28 then
Image28.Position := Rectangle10.Position;
if n = 29 then
Image29.Position := Rectangle12.Position;
if n = 30 then
Image30.Position := Rectangle12.Position;
if n = 31 then
Image31.Position := Rectangle12.Position;
if n = 32 then
Image32.Position := Rectangle12.Position;
end;
procedure TForm1.Rectangle13Click(Sender: TObject);
begin
if n = 1 then
Image1.Position := Rectangle13.Position;
if n = 2 then
Image2.Position := Rectangle13.Position;
if n = 3 then
Image3.Position := Rectangle13.Position;
if n = 4 then
Image4.Position := Rectangle13.Position;
if n = 5 then
Image5.Position := Rectangle13.Position;
if n = 6 then
Image6.Position := Rectangle13.Position;
if n = 7 then
Image7.Position := Rectangle13.Position;
if n = 8 then
Image8.Position := Rectangle13.Position;
if n = 9 then
Image9.Position := Rectangle13.Position;
if n = 10 then
Image10.Position := Rectangle13.Position;
if n = 11 then
Image11.Position := Rectangle13.Position;
if n = 12 then
Image12.Position := Rectangle13.Position;
if n = 13 then
Image13.Position := Rectangle13.Position;
if n = 14 then
Image14.Position := Rectangle13.Position;
if n = 15 then
Image15.Position := Rectangle13.Position;
if n = 16 then
Image16.Position := Rectangle13.Position;
if n = 17 then
Image17.Position := Rectangle13.Position;
if n = 18 then
Image18.Position := Rectangle13.Position;
if n = 19 then
Image19.Position := Rectangle13.Position;
if n = 20 then
Image20.Position := Rectangle13.Position;
if n = 21 then
Image21.Position := Rectangle13.Position;
if n = 22 then
Image22.Position := Rectangle13.Position;
if n = 23 then
Image23.Position := Rectangle13.Position;
if n = 24 then
Image24.Position := Rectangle13.Position;
if n = 25 then
Image25.Position := Rectangle13.Position;
if n = 26 then
Image26.Position := Rectangle13.Position;
if n = 27 then
Image27.Position := Rectangle13.Position;
if n = 28 then
Image28.Position := Rectangle13.Position;
if n = 29 then
Image29.Position := Rectangle13.Position;
if n = 30 then
Image30.Position := Rectangle13.Position;
if n = 31 then
Image31.Position := Rectangle13.Position;
if n = 32 then
Image32.Position := Rectangle13.Position;
end;
procedure TForm1.Rectangle14Click(Sender: TObject);
begin
if n = 1 then
Image1.Position := Rectangle14.Position;
if n = 2 then
Image2.Position := Rectangle14.Position;
if n = 3 then
Image3.Position := Rectangle14.Position;
if n = 4 then
Image4.Position := Rectangle14.Position;
if n = 5 then
Image5.Position := Rectangle14.Position;
if n = 6 then
Image6.Position := Rectangle14.Position;
if n = 7 then
Image7.Position := Rectangle14.Position;
if n = 8 then
Image8.Position := Rectangle14.Position;
if n = 9 then
Image9.Position := Rectangle14.Position;
if n = 10 then
Image10.Position := Rectangle14.Position;
if n = 11 then
Image11.Position := Rectangle14.Position;
if n = 12 then
Image12.Position := Rectangle14.Position;
if n = 13 then
Image13.Position := Rectangle14.Position;
if n = 14 then
Image14.Position := Rectangle14.Position;
if n = 15 then
Image15.Position := Rectangle14.Position;
if n = 16 then
Image16.Position := Rectangle14.Position;
if n = 17 then
Image17.Position := Rectangle14.Position;
if n = 18 then
Image18.Position := Rectangle14.Position;
if n = 19 then
Image19.Position := Rectangle14.Position;
if n = 20 then
Image20.Position := Rectangle14.Position;
if n = 21 then
Image21.Position := Rectangle14.Position;
if n = 22 then
Image22.Position := Rectangle14.Position;
if n = 23 then
Image23.Position := Rectangle14.Position;
if n = 24 then
Image24.Position := Rectangle14.Position;
if n = 25 then
Image25.Position := Rectangle14.Position;
if n = 26 then
Image26.Position := Rectangle14.Position;
if n = 27 then
Image27.Position := Rectangle14.Position;
if n = 28 then
Image28.Position := Rectangle14.Position;
if n = 29 then
Image29.Position := Rectangle14.Position;
if n = 30 then
Image30.Position := Rectangle14.Position;
if n = 31 then
Image31.Position := Rectangle14.Position;
if n = 32 then
Image32.Position := Rectangle14.Position;
end;
procedure TForm1.Rectangle15Click(Sender: TObject);
begin
if n = 1 then
Image1.Position := Rectangle15.Position;
if n = 2 then
Image2.Position := Rectangle15.Position;
if n = 3 then
Image3.Position := Rectangle15.Position;
if n = 4 then
Image4.Position := Rectangle15.Position;
if n = 5 then
Image5.Position := Rectangle15.Position;
if n = 6 then
Image6.Position := Rectangle15.Position;
if n = 7 then
Image7.Position := Rectangle15.Position;
if n = 8 then
Image8.Position := Rectangle15.Position;
if n = 9 then
Image9.Position := Rectangle15.Position;
if n = 10 then
Image10.Position := Rectangle15.Position;
if n = 11 then
Image11.Position := Rectangle15.Position;
if n = 12 then
Image12.Position := Rectangle15.Position;
if n = 13 then
Image13.Position := Rectangle15.Position;
if n = 14 then
Image14.Position := Rectangle15.Position;
if n = 15 then
Image15.Position := Rectangle15.Position;
if n = 16 then
Image16.Position := Rectangle15.Position;
if n = 17 then
Image17.Position := Rectangle15.Position;
if n = 18 --">
- 1
- 2
- 3
- 4
- 5
- . . .
- последняя (20) »
Книги схожие с «Игры на Делфи » по жанру, серии, автору или названию:
Сергей Вячеславович Хвощев (глобус) - Спутниковые программы Жанр: Программы Год издания: 2022 |
Юрий Львович Алкин - Физическая невозможность смерти в сознании живущего. Игры бессмертных (сборник) Жанр: Социально-философская фантастика Год издания: 2011 |
Юрий Павлович Винничук - Весенние игры в осенних садах Жанр: Эротика Год издания: 2013 |
Денис Андреевич Медведев - Миры Жизни. Мастерство Игры (СИ) Жанр: Фэнтези: прочее Год издания: 2015 |