Ergebnis der Suchanfrage

• Forum: Multimedia

  Re: Image darf nicht durch Image bewegt werden!

    Delphi
    by dominikkv, 2. Mär 2008
  Warum so umständlich über eine Klasse?
  function IsCollision(obj1, obj2: TControl): Boolean;
  begin
  if Assigned(obj1) and Assigned(obj2) then
  Result := (obj1.Left <= obj2.Left + obj2.Width) and (obj1.Left + obj1.Width >= obj2.Left)
  and (obj1.Top <= obj2.Top + obj2.Height) and (obj1.Top + obj2.Height >= obj2.Top);
  end;
  aufrufen einfach so:
  if IsCollision(Image1, Shape2) then...