Цитата:
|
Сообщение от Mp3
глобальными переменами можно считать а и в????
а почему x и y не глобальные???
|
Цитата:
var a,b :integer;
begin
if (Image1.Top <= 0) or ((Image1.Top + Image1.Height) >= Form1.ClientHeight) then b:= -b;
if (Image1.Left <= 0) or ((Image1.Left + Image1.Width) >= Form1.ClientWidth) then a:= -a;
Image1.Left:= Image1.Left + a;
Image1.Top:= Image1.Top + b;
|
Где X и Y?
Вообще-то там, в 23м посте, я пример скинул!
http://www.delphisources.ru/forum/sh...0&postcount=23