Форум программистов, компьютерный форум, киберфорум
Наши страницы
Delphi для начинающих
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.60/5: Рейтинг темы: голосов - 5, средняя оценка - 4.60
Hugoboss33
0 / 0 / 0
Регистрация: 25.09.2013
Сообщений: 38
1

Графика. Создать изображение круга, движущегося сверху вниз

04.05.2014, 17:38. Просмотров 1020. Ответов 1
Метки нет (Все метки)

Создать изображение круга, движущегося сверху вниз.
0
Лучшие ответы (1)
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
04.05.2014, 17:38
Ответы с готовыми решениями:

Графика. Создать изображение квадрата, движущегося от правого нижнего угла к левому верхнему углу
Создать изображение квадрата, движущегося от правого нижнего угла к левому верхнему углу. Скорость...

Метод «Сверху вниз»
Здравствуйте. Возник вопрос, считается ли код ниже кодом, написанным по методу «Сверху вниз»? ...

Слева направо сверху вниз
Слева направо от наименьших чисел к наибольшим используя 2-мepный мaccив! Обмозгуйте код я тупой! ...

Квадраты падают сверху вниз
Можете дать примеры как можно сделать , чтобы квадраты зарисовывались рандомно сверху экрана и...

В StringGrid перенести фиксированную строку сверху вниз
Здравствуйте, подскажите пожалуйста, как сделать чтобы то что у меня выделено на картинку было не...

1
Puporev
Модератор
56854 / 43438 / 30034
Регистрация: 18.05.2008
Сообщений: 103,472
04.05.2014, 19:23 2
Лучший ответ Сообщение было отмечено Hugoboss33 как решение

Решение

Delphi
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
var
  Form1: TForm1;
  d:integer;
implementation
 
{$R *.dfm}
procedure TForm1.FormCreate(Sender: TObject);
begin
Timer1.Enabled:=false;
with Shape1 do
 begin
  shape:=stCircle;
  width:=40;
  height:=40;
  left:=Image1.Left+Image1.Width div 2-20;
  top:=Image1.Top;
  visible:=false;
 end;
end;
procedure TForm1.Button1Click(Sender: TObject);
begin
Timer1.Enabled:=true;
Timer1.Interval:=50;
shape1.Visible:=true;
d:=2;
with Image1.Canvas do
 begin
  brush.Color:=clAqua;
  rectangle(0,0,width,height)
 end; 
end;
 
procedure TForm1.Timer1Timer(Sender: TObject);
begin
Shape1.Top:=Shape1.Top+d;
if Shape1.Top>=Image1.Top+Image1.Height-40 then d:=0;
end;
0
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
04.05.2014, 19:23

Создать матрицу и переставить элементы матрицы в возрастающем порядке слева направо, сверху вниз
Создать матрицу D. Затем переставить элементы матрицы в возрастающем порядке слева направо,сверху...

Падение движущегося предмета вниз
Время падения мяча автор книги рассчитал как t=sqr(2*S/g)=sqr(2*5/9,8)=1 сек. А значит он думает,...

Проектирование сверху вниз
Хотел бы сразу предупредить. Отвечают только "бывалые", профессионалы, скажем так. Слышал это не...


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
2
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2019, vBulletin Solutions, Inc.
Рейтинг@Mail.ru