So, ich melde mich doch noch einmal.
In letzter Zeit hatte ich einfach keine Lust mehr, daran zu basteln.
Zitat:
var
Hindernisse: TObjectList;
{...}
Hindernisse := TObjectList.Create;
Hindernisse.OwnsObjects := False;
Hindernisse.Add(ImageHindernis1);
{...}
function IsKollision(APferdImage: TImage): Boolean;
var
Hinderniss: TObject;
Rx, R1: TRect;
begin
R1 := APferdImage.BoundsRect;
for i := 0 to Hindernisse.Count - 1 do
begin
Hinderniss := Hindernisse[i];
if Hinderniss is TImage then
begin
Result := IntersectRect(Rx, R1, TImage(Hinderniss).BoundsRect);
if Result then
Exit;
end;
end;
Result := False;
end;
Das hört sich für mich ganz gut an, aber wie ist das mit der TObjektList gemeint? Wie erstellt man die?