Посмотрел код в архиве "Новая папка (2).rar"
Таймер там замечательно работает. И прибавляет нули.
Проблема в том, что к форме не прилинковано событие OnCreate. В инспекторе объектов выбери форму, перейди на вкладку Events и два раза кликни по полю OnCreate. Из-за этого не происходило инициализации dx и dy, и они считались равными нулю.
p.s. только интервал у таймера поменьше поставь. 100 хотя бы. а то 1000 = 1 сек, ползет как черепаха =)
p.p.s. Так же в событии Timer1Timer измени Form1.Width на Form6.ClientWidth и Form1.Height на Form6.ClientHeight. Во-первых у тебя форма Form6, а не Form1, во-вторых с ClientWidth/ClientHeight не будет уползать.
p.p.p.s FormMouseDown тоже забыл прилинковать. Выбери форму, events, найди OnMouseDown и тыкни два раза мышкой.
p.p.p.p.s Uses Unit1; совершенно ни к чему и его можно смело убрать.
|