Сергей Вячеславович Хвощев (глобус) - Игры на Делфи
Название: | Игры на Делфи | |
Автор: | Сергей Вячеславович Хвощев (глобус) | |
Жанр: | Программы, Pascal, Delphi, Lazarus и т.п. | |
Изадано в серии: | неизвестно | |
Издательство: | неизвестно | |
Год издания: | 2022 | |
ISBN: | неизвестно | |
Отзывы: | Комментировать | |
Рейтинг: | ||
Поделись книгой с друзьями! Помощь сайту: донат на оплату сервера |
Краткое содержание книги "Игры на Делфи "
Аннотация к этой книге отсутствует.
Читаем онлайн "Игры на Делфи ". [Страница - 2]
- 1
- 2
- 3
- 4
- . . .
- последняя (20) »
then
begin
Image19.Position.Y := -60;
Image19.Visible := false;
end;
if n = 20 then
begin
Image20.Position.Y := -60;
Image20.Visible := false;
end;
if n = 21 then
begin
Image21.Position.Y := -60;
Image21.Visible := false;
end;
if n = 22 then
begin
Image22.Position.Y := -60;
Image22.Visible := false;
end;
if n = 23 then
begin
Image23.Position.Y := -60;
Image23.Visible := false;
end;
if n = 24 then
begin
Image24.Position.Y := -60;
Image24.Visible := false;
end;
if n = 25 then
begin
Image25.Position.Y := -60;
Image25.Visible := false;
end;
if n = 26 then
begin
Image26.Position.Y := -60;
Image26.Visible := false;
end;
if n = 27 then
begin
Image27.Position.Y := -60;
Image27.Visible := false;
end;
if n = 28 then
begin
Image28.Position.Y := -60;
Image28.Visible := false;
end;
if n = 29 then
begin
Image29.Position.Y := -60;
Image29.Visible := false;
end;
if n = 30 then
begin
Image30.Position.Y := -60;
Image30.Visible := false;
end;
if n = 31 then
begin
Image31.Position.Y := -60;
Image31.Visible := false;
end;
if n = 32 then
begin
Image32.Position.Y := -60;
Image32.Visible := false;
end;
end;
procedure TForm1.Image10Click(Sender: TObject);
begin
n := 10;
end;
procedure TForm1.Image11Click(Sender: TObject);
begin
n := 11;
end;
procedure TForm1.Image12Click(Sender: TObject);
begin
n := 12;
end;
procedure TForm1.Image13Click(Sender: TObject);
begin
n := 13;
end;
procedure TForm1.Image14Click(Sender: TObject);
begin
n := 14;
end;
procedure TForm1.Image15Click(Sender: TObject);
begin
n := 15;
end;
procedure TForm1.Image16Click(Sender: TObject);
begin
n := 16;
end;
procedure TForm1.Image17Click(Sender: TObject);
begin
n := 17;
end;
procedure TForm1.Image18Click(Sender: TObject);
begin
n := 18;
end;
procedure TForm1.Image19Click(Sender: TObject);
begin
n := 19;
end;
procedure TForm1.Image1Click(Sender: TObject);
begin
n := 1;
end;
procedure TForm1.Image20Click(Sender: TObject);
begin
n := 20;
end;
procedure TForm1.Image21Click(Sender: TObject);
begin
n := 21;
end;
procedure TForm1.Image22Click(Sender: TObject);
begin
n := 22;
end;
procedure TForm1.Image23Click(Sender: TObject);
begin
n := 23;
end;
procedure TForm1.Image24Click(Sender: TObject);
begin
n := 24;
end;
procedure TForm1.Image25Click(Sender: TObject);
begin
n := 25;
end;
procedure TForm1.Image26Click(Sender: TObject);
begin
n := 26;
end;
procedure TForm1.Image27Click(Sender: TObject);
begin
n := 27;
end;
procedure TForm1.Image28Click(Sender: TObject);
begin
n := 28;
end;
procedure TForm1.Image29Click(Sender: TObject);
begin
n := 29;
end;
procedure TForm1.Image2Click(Sender: TObject);
begin
n := 2;
end;
procedure TForm1.Image30Click(Sender: TObject);
begin
n := 30;
end;
procedure TForm1.Image31Click(Sender: TObject);
begin
n := 31;
end;
procedure TForm1.Image32Click(Sender: TObject);
begin
n := 32;
end;
procedure TForm1.Image3Click(Sender: TObject);
begin
n := 3;
end;
procedure TForm1.Image4Click(Sender: TObject);
begin
n := 4;
end;
procedure TForm1.Image5Click(Sender: TObject);
begin
n := 5;
end;
procedure TForm1.Image6Click(Sender: TObject);
begin
n := 6;
end;
procedure TForm1.Image7Click(Sender: TObject);
begin
n := 7;
end;
procedure TForm1.Image8Click(Sender: TObject);
begin
n := 8;
end;
procedure TForm1.Image9Click(Sender: TObject);
begin
n := 9;
end;
procedure TForm1.Rectangle10Click(Sender: TObject);
begin
if n = 1 then
Image1.Position := Rectangle10.Position;
if n = 2 then
Image2.Position := Rectangle10.Position;
if n = 3 then
Image3.Position := Rectangle10.Position;
if n = 4 then
Image4.Position := Rectangle10.Position;
if n = 5 then
Image5.Position := Rectangle10.Position;
if n = 6 then
Image6.Position := Rectangle10.Position;
if n = 7 then
Image7.Position := Rectangle10.Position;
if n = 8 then
Image8.Position := Rectangle10.Position;
if n = 9 then
Image9.Position := Rectangle10.Position;
if n = 10 then
Image10.Position := Rectangle10.Position;
if n = 11 then
Image11.Position := Rectangle10.Position;
if n = 12 then
Image12.Position := Rectangle10.Position;
if n = 13 then
Image13.Position := Rectangle10.Position;
if n = 14 then
Image14.Position := Rectangle10.Position;
if n = 15 then
Image15.Position := Rectangle10.Position;
if n = 16 then
Image16.Position := Rectangle10.Position;
if n = 17 then
Image17.Position := Rectangle10.Position;
if n = 18 then
Image18.Position := Rectangle10.Position;
if n = 19 then
Image19.Position := Rectangle10.Position;
if n = 20 then
Image20.Position := Rectangle10.Position;
if n = 21 then
Image21.Position := Rectangle10.Position;
if n = 22 then
Image22.Position := Rectangle10.Position;
if n = 23 then
Image23.Position := Rectangle10.Position;
if n = 24 then
Image24.Position := Rectangle10.Position;
if n = 25 then
Image25.Position := Rectangle10.Position;
if n = 26 then
Image26.Position := Rectangle10.Position;
if n = 27 then
Image27.Position := Rectangle10.Position;
if n = 28 then
Image28.Position := Rectangle10.Position;
if n = 29 then
Image29.Position := Rectangle10.Position;
if n = 30 then
Image30.Position := Rectangle10.Position;
if n = 31 then
Image31.Position := Rectangle10.Position;
if n = 32 then
Image32.Position := Rectangle10.Position;
end;
procedure TForm1.Rectangle11Click(Sender: TObject);
begin
if n = 1 then
Image1.Position := Rectangle11.Position;
if n = 2 then
Image2.Position := Rectangle11.Position;
if n = 3 then
Image3.Position := Rectangle11.Position;
if n = 4 then
Image4.Position := Rectangle11.Position;
if n = 5 then
Image5.Position := Rectangle11.Position;
if n = 6 then
Image6.Position := Rectangle11.Position;
if n = 7 then
Image7.Position := Rectangle11.Position;
if n = 8 then
Image8.Position := Rectangle11.Position;
if n = 9 then
Image9.Position := Rectangle11.Position;
if n = 10 then
Image10.Position := Rectangle11.Position;
if n = 11 then
Image11.Position := Rectangle11.Position;
if n = 12 then
Image12.Position := Rectangle11.Position;
if n = 13 then
Image13.Position := Rectangle11.Position;
if n = 14 then
Image14.Position := Rectangle11.Position;
if n = 15 then
Image15.Position := Rectangle11.Position;
if n = 16 then
Image16.Position := Rectangle11.Position;
if n = 17 then
Image17.Position := Rectangle11.Position;
if n = 18 then
Image18.Position := Rectangle11.Position;
if n = 19 then
Image19.Position := Rectangle11.Position;
if n = 20 then
Image20.Position := Rectangle11.Position;
if n = 21 then
Image21.Position := Rectangle11.Position;
if n = 22 then
Image22.Position := Rectangle11.Position;
if n = 23 then
Image23.Position := Rectangle11.Position;
if n = 24 then
Image24.Position := Rectangle11.Position;
if n = 25 then
Image25.Position := Rectangle11.Position;
if n = 26 then
Image26.Position := Rectangle11.Position;
if n = 27 --">
begin
Image19.Position.Y := -60;
Image19.Visible := false;
end;
if n = 20 then
begin
Image20.Position.Y := -60;
Image20.Visible := false;
end;
if n = 21 then
begin
Image21.Position.Y := -60;
Image21.Visible := false;
end;
if n = 22 then
begin
Image22.Position.Y := -60;
Image22.Visible := false;
end;
if n = 23 then
begin
Image23.Position.Y := -60;
Image23.Visible := false;
end;
if n = 24 then
begin
Image24.Position.Y := -60;
Image24.Visible := false;
end;
if n = 25 then
begin
Image25.Position.Y := -60;
Image25.Visible := false;
end;
if n = 26 then
begin
Image26.Position.Y := -60;
Image26.Visible := false;
end;
if n = 27 then
begin
Image27.Position.Y := -60;
Image27.Visible := false;
end;
if n = 28 then
begin
Image28.Position.Y := -60;
Image28.Visible := false;
end;
if n = 29 then
begin
Image29.Position.Y := -60;
Image29.Visible := false;
end;
if n = 30 then
begin
Image30.Position.Y := -60;
Image30.Visible := false;
end;
if n = 31 then
begin
Image31.Position.Y := -60;
Image31.Visible := false;
end;
if n = 32 then
begin
Image32.Position.Y := -60;
Image32.Visible := false;
end;
end;
procedure TForm1.Image10Click(Sender: TObject);
begin
n := 10;
end;
procedure TForm1.Image11Click(Sender: TObject);
begin
n := 11;
end;
procedure TForm1.Image12Click(Sender: TObject);
begin
n := 12;
end;
procedure TForm1.Image13Click(Sender: TObject);
begin
n := 13;
end;
procedure TForm1.Image14Click(Sender: TObject);
begin
n := 14;
end;
procedure TForm1.Image15Click(Sender: TObject);
begin
n := 15;
end;
procedure TForm1.Image16Click(Sender: TObject);
begin
n := 16;
end;
procedure TForm1.Image17Click(Sender: TObject);
begin
n := 17;
end;
procedure TForm1.Image18Click(Sender: TObject);
begin
n := 18;
end;
procedure TForm1.Image19Click(Sender: TObject);
begin
n := 19;
end;
procedure TForm1.Image1Click(Sender: TObject);
begin
n := 1;
end;
procedure TForm1.Image20Click(Sender: TObject);
begin
n := 20;
end;
procedure TForm1.Image21Click(Sender: TObject);
begin
n := 21;
end;
procedure TForm1.Image22Click(Sender: TObject);
begin
n := 22;
end;
procedure TForm1.Image23Click(Sender: TObject);
begin
n := 23;
end;
procedure TForm1.Image24Click(Sender: TObject);
begin
n := 24;
end;
procedure TForm1.Image25Click(Sender: TObject);
begin
n := 25;
end;
procedure TForm1.Image26Click(Sender: TObject);
begin
n := 26;
end;
procedure TForm1.Image27Click(Sender: TObject);
begin
n := 27;
end;
procedure TForm1.Image28Click(Sender: TObject);
begin
n := 28;
end;
procedure TForm1.Image29Click(Sender: TObject);
begin
n := 29;
end;
procedure TForm1.Image2Click(Sender: TObject);
begin
n := 2;
end;
procedure TForm1.Image30Click(Sender: TObject);
begin
n := 30;
end;
procedure TForm1.Image31Click(Sender: TObject);
begin
n := 31;
end;
procedure TForm1.Image32Click(Sender: TObject);
begin
n := 32;
end;
procedure TForm1.Image3Click(Sender: TObject);
begin
n := 3;
end;
procedure TForm1.Image4Click(Sender: TObject);
begin
n := 4;
end;
procedure TForm1.Image5Click(Sender: TObject);
begin
n := 5;
end;
procedure TForm1.Image6Click(Sender: TObject);
begin
n := 6;
end;
procedure TForm1.Image7Click(Sender: TObject);
begin
n := 7;
end;
procedure TForm1.Image8Click(Sender: TObject);
begin
n := 8;
end;
procedure TForm1.Image9Click(Sender: TObject);
begin
n := 9;
end;
procedure TForm1.Rectangle10Click(Sender: TObject);
begin
if n = 1 then
Image1.Position := Rectangle10.Position;
if n = 2 then
Image2.Position := Rectangle10.Position;
if n = 3 then
Image3.Position := Rectangle10.Position;
if n = 4 then
Image4.Position := Rectangle10.Position;
if n = 5 then
Image5.Position := Rectangle10.Position;
if n = 6 then
Image6.Position := Rectangle10.Position;
if n = 7 then
Image7.Position := Rectangle10.Position;
if n = 8 then
Image8.Position := Rectangle10.Position;
if n = 9 then
Image9.Position := Rectangle10.Position;
if n = 10 then
Image10.Position := Rectangle10.Position;
if n = 11 then
Image11.Position := Rectangle10.Position;
if n = 12 then
Image12.Position := Rectangle10.Position;
if n = 13 then
Image13.Position := Rectangle10.Position;
if n = 14 then
Image14.Position := Rectangle10.Position;
if n = 15 then
Image15.Position := Rectangle10.Position;
if n = 16 then
Image16.Position := Rectangle10.Position;
if n = 17 then
Image17.Position := Rectangle10.Position;
if n = 18 then
Image18.Position := Rectangle10.Position;
if n = 19 then
Image19.Position := Rectangle10.Position;
if n = 20 then
Image20.Position := Rectangle10.Position;
if n = 21 then
Image21.Position := Rectangle10.Position;
if n = 22 then
Image22.Position := Rectangle10.Position;
if n = 23 then
Image23.Position := Rectangle10.Position;
if n = 24 then
Image24.Position := Rectangle10.Position;
if n = 25 then
Image25.Position := Rectangle10.Position;
if n = 26 then
Image26.Position := Rectangle10.Position;
if n = 27 then
Image27.Position := Rectangle10.Position;
if n = 28 then
Image28.Position := Rectangle10.Position;
if n = 29 then
Image29.Position := Rectangle10.Position;
if n = 30 then
Image30.Position := Rectangle10.Position;
if n = 31 then
Image31.Position := Rectangle10.Position;
if n = 32 then
Image32.Position := Rectangle10.Position;
end;
procedure TForm1.Rectangle11Click(Sender: TObject);
begin
if n = 1 then
Image1.Position := Rectangle11.Position;
if n = 2 then
Image2.Position := Rectangle11.Position;
if n = 3 then
Image3.Position := Rectangle11.Position;
if n = 4 then
Image4.Position := Rectangle11.Position;
if n = 5 then
Image5.Position := Rectangle11.Position;
if n = 6 then
Image6.Position := Rectangle11.Position;
if n = 7 then
Image7.Position := Rectangle11.Position;
if n = 8 then
Image8.Position := Rectangle11.Position;
if n = 9 then
Image9.Position := Rectangle11.Position;
if n = 10 then
Image10.Position := Rectangle11.Position;
if n = 11 then
Image11.Position := Rectangle11.Position;
if n = 12 then
Image12.Position := Rectangle11.Position;
if n = 13 then
Image13.Position := Rectangle11.Position;
if n = 14 then
Image14.Position := Rectangle11.Position;
if n = 15 then
Image15.Position := Rectangle11.Position;
if n = 16 then
Image16.Position := Rectangle11.Position;
if n = 17 then
Image17.Position := Rectangle11.Position;
if n = 18 then
Image18.Position := Rectangle11.Position;
if n = 19 then
Image19.Position := Rectangle11.Position;
if n = 20 then
Image20.Position := Rectangle11.Position;
if n = 21 then
Image21.Position := Rectangle11.Position;
if n = 22 then
Image22.Position := Rectangle11.Position;
if n = 23 then
Image23.Position := Rectangle11.Position;
if n = 24 then
Image24.Position := Rectangle11.Position;
if n = 25 then
Image25.Position := Rectangle11.Position;
if n = 26 then
Image26.Position := Rectangle11.Position;
if n = 27 --">
- 1
- 2
- 3
- 4
- . . .
- последняя (20) »
Книги схожие с «Игры на Делфи » по жанру, серии, автору или названию:
Сергей Вячеславович Хвощев (глобус) - Спутниковые программы Жанр: Программы Год издания: 2022 |
Алексей Викторович Вязовский - Узники игры Жанр: Попаданцы Год издания: 2014 |