Allgemeine Abfrage von Klassen

[Matze33]

Sorry für den Titel, hatte keine bessere Idee

Also ich habe ein Bild als Spielfigur, das ich steuern kann in alle Richtungen. Da ich mit Schwerkraft spielen möchte, brauche ich eine Abfrage, ob die Figur auf einem Hindernis (dafür nehme ich Panels) steht oder nicht.
Einzeln kann man das ja leicht ermitteln (if Image1.Top+Image1.Height=Panelx.Top Then ...), aber kann ich auch das irgendwie allgemein machen, sodass ich also nicht für jedes Panel das schreiben muss?

[s.h.a.r.k]

Hau die Panels eben in eine Liste und iterier über diese Liste?

Delphi-Quellcode:

var
  PanelList : TObjectList;
  i : Integer;
  pn : TPanel;
begin
  PanelList.Add(TPanel.Create(nil));
  PanelList.Add(TPanel.Create(nil));
  PanelList.Add(TPanel.Create(nil));

  for i := 0 to PanelList.Count - 1 do
  begin
    pn := TPanel(PanelList[i]);
    
    // und hier dann eben der Vergleich oder whatever.

  end;
end;

-- EDIT: Kannst natürlich auch eine Methode HitTest(ObjectA: TWinControl; ObjectB: TWinControl) schreiben, die prüft ob sich zwei Objekte überlagern.

-- EDIT2: Du solltest dir mal den Unterschied zwischen einer Instanz der Klasse und der Klasse selbst aneignen, fällt mir gerade auf Eine Klasse ist nur die Definition, was für Eigenschaften und Methoden eine Instanz später mal hat. z.B. gibt es TMensch als Klasse mit den Eigenschaft Name, Adresse, Geburtstag etc. Armin und Matze wären Instanzen dieser Klasse. Teilweise verwendet man auch Objekt als Synonym zu Klasse. Nun solltest den Titel deines Threads besser wählen können.

[Matze33]

Wie erstelle ich denn eine PanelList?

[s.h.a.r.k]

Das ist nur ein Variablenname Der kann auch xyz heißen. Der Typ ist das wichtige dabei: TObjectList. Das ist eine Liste mit all den Objekten, die du eben da rein wirfst. Somit kannst du drüber iterieren.

[Matze33]

Oh ja Mist, mein Fehler^^
Er zeigt jetzt aber in der Zeile, wo ich PanelList deklariere "Undeclared identifier: 'TObjectList'" als Fehlermeldung an.
Hab nichts verändert, woran kann das liegen?

[s.h.a.r.k]

Dir fehlt die Unit, in der TObjectList deklariert ist. Bei uses oben muss noch Contnrs dazu.