Allgemeine Abfrage von Klassen

[Matze33]

Okaaay, ich glaube, ich hab das einigermaßen verstanden.
Wenn wir jetzt zur ursprünglichen Frage zurückgehen. Wenn ich jetzt an den Top-Wert der Panels in PanelList will, was geb ich dann an? (Noch mal danke, für deine Mühe.)

[s.h.a.r.k]

Nun ja, es kommt drauf an, wie du vor gehst. Ich gehe mal davon aus, dass du alle Panels direkt in Delphi auf die Form setzt, oder? Dann kannst du es folgendermaßen machen:

Delphi-Quellcode:

type
  TForm1 = class(TForm)
    { das übeliche Gedöns halt... }
  private
    FPanelList : TObjectList;
    function HitTest(ObjA, ObjB: TControl): Boolean;
  end;


implementation

procedure TForm1.Create({...});
begin
  // Liste für alle Panels erzeugen
  FPanelList := TObjectList.Create(nil);

  // Liste füllen
  FPanelList.Add(Panel1);
  FPanelList.Add(Panel2);
  FPanelList.Add(Panel3);
  { usw... }
end;

procedure TForm1.Destroy();
begin
  // Freigeben der Liste nicht vergessen!
  FreeAndNil(FPanelList);
end;

// Diese Methode prüft, ob ObjA oder ObjB sich schneiden. Wie das geht musst
// dir aber schon überlegen ;) Schwer ists ja nicht.
function TForm1.HitTest(ObjA, ObjB: TControl): Boolean;
begin
  Result := ObjA.Left < ObjB.Left { etc pp blub bla... }
end;

{ und irgendwo anders kann du dann eine for-Schleife nutzen und folgendes machen.
  Nur musst du schon selbst wissen, wo genau, da du ja die Anwendung baust. }
var
  Panel : TPanel;
  i : Integer;
begin
  for i := 0 to FPanelList.Count - 1 do
  begin
    Panel := TPanel(FPanelList[i]);
    // Nur zum Beispiel: Wenn der Spieler ein Panel erwischt hat, dann wird
    // die Highscore nach oben gezählt...
    if HitTest(Player, Panel) then
      Inc(HighscoreCounter);
  end;
end;

Aber das reicht dir doch nun endlich, oder?

[Matze33]

Ob das reicht? Viel zu viel xD
Ich hatte eigentlich nicht vor, am Freitagabend noch was zu lernen

Aber im Ernst, ich werd versuchen, das so gut wie möglich umzusetzen und danke dir vielmals für deine nette Hilfe.

[s.h.a.r.k]

Kein Problem, dafür gibts ja die DP

Hab hier auch schon so viel erklärt bekommen und bin Gott froh um jede Antwort. Daher gebe ich dann auch gerne was an die Community zurück.

Na dann hau mal in die Tasten Äh, ich meine, ab zum Lernen

[Matze33]

Hab jetzt gerade mal das ausprobiert, einzubauen.
Bekomme dabei die folgenden Fehler (siehe Anhang).
Z. 53: FPanelList := TObjectList.Create(nil);
Z. 61: procedure TForm1.Destroy(Sender: TObject);
Z. 64: FreeAndNil(FPanelList);

[DeddyH]

Dann schau Dir den Konstruktor von TObjectList doch einmal an, der erwartet nämlich einen Boolean-Parameter (OwnsObjects). Und das Form.Destroy sollte wohl das Event OnDestroy des Formulars sein.