(Gast)
n/a Beiträge
|
Image zufällig bewegen und an den Rändern abprallen lassen
30. Jan 2003, 23:43
Delphi-Quellcode:
var
Form1: TForm1;
vx, vy: integer;
implementation
{$R *.DFM}
procedure TForm1.FormCreate(Sender: TObject);
begin
Randomize;
vx := -10 + Random(20);
vy := -10 + Random(20);
end;
procedure TForm1.Timer1Timer(Sender: TObject);
begin
Image1.Left := Image1.Left + vx;
Image1.Top := Image1.Top + vy;
if (Image1.Left > ClientWidth - Image1.Width - 1) or (Image1.Left < 1) then
vx := vx * -1;
if (Image1.Top > ClientHeight - Image1.Height - 1) or (Image1.Top < 1) then
vy := vy * -1;
end;
Grüsse, Daniel
|
|
Zitat
|