Прграмма "Конфети" на Delphi 7

[prygun]

Добрый день.
такая задачка. Необходимо, что бы при запуске приложения отрисовывались кружки(цвет и размер рандомны) и передвигались по форме(тоже рандомно). Завтра экзамен, буду благодарен за помощь

[Alex11223]

Ну при запуске это FormCreate (или дабл клик по пустому месту формы).
Кружки наверно с помощью shape какого-нибудь. Или изображения. Рандом соответственно с помощью рандома (и рандомайза), case для выбора цвета. Движение с помощью таймера или sleep'ов. В чем проблема?

[prygun]

Alex11223, например в том, как реализовать перемещение shape с помощью таймера.

[divwond]

вертикальную синусоиду.с рандом значениями.

[Alex11223]

Сообщение от prygun

Alex11223, например в том, как реализовать перемещение shape с помощью таймера.

procedure TForm1.tmr1Timer(Sender: TObject);
begin
Randomize;
shp1.Left:=Random(200);
shp1.Top:=Random(300);
end;

Например, так. Ну и дальше изменение цвета, формы, мб еще несколько фигур и т.д., интервал таймера мб уменьшить. А в FormCreate что-то типа

Sleep(10000); (через сколько мс закончить)
tmr1.Enabled:=False;

[prygun]

Спасибо, Alex11223. Разобрался, теперь если на экзамене попадет, то сдамся =)