Про задание 2
зачем одинаковый код и в Form1OnActivate и Button1Click ?
что нужно исправить
1) перенести объявления sky,aplane, x,y, w, h в секцию Private TForm1
2) тот код, который Вы написали в Button1Click перенести в Form1OnCreate
3) в дизайнере у Timer1 свойство Enabled поставльте в False
4) в Button1Click оставьте только Timer1 . Enabled := true;
5) в Button2Click оставьте только Timer1 . Enabled := false;
6) в Form1OnDestroy напишите sky.Free; aplane.Free;
7) соответственно уберите всё из Form1OnActivate
Отпишитесь о результатах
|