OnMouseOver bei Array of TPanel

[sx2008]

Zitat von erik-17:

..."buntpanel: array[1..10000] of TBuntPanel"

Bei so vielen Panels wirst du bestimmt Probleme bekommen. Jedes Panel ist ein "Window" und hat ein Window-Handle. Die Anzahl der möglichen Handles ist aber begrenzt (nämlich 10000 pro Anwendung).
Vergiss mal das Panel und erkläre was dein Programm tun soll und wie es aussehen soll.

[erik-17]

@sx2008:
Is eine Aufgabe in Informatik (Schule).
Das Programm soll Panels erzeugen (mit Timer und als neue Klasse TBuntPanel), die, wenn man auf eins geht mit der Maus, verschwinden sollen...

[rollstuhlfahrer]

dann aber bitte kein Array sondern eine ObjectList. Wenn du dann die Panel löschst, dann hast du wenigstens nicht die Verwaltungsaufgaben für dein Array auch noch zu erledigen.

Und: Ja, es geht. Man kann mehr als nur 1 Komponente die gleiche Prozedur zur Ereignisbehandlung zuweisen.

[erik-17]

Danke für eure bisherigen Antworten

Es läuft jetzt mit dem Code:

Code:

procedure TBuntPanel.MouseEnter(var Message: TMessage);
begin
    Visible := false;
end;

Es werden 1000 Panels erstellt, die man dann "kaputt" machen kann. Wenn ich in der Prozedur das Panel noch freigeben möchte, wie sollte man das machen (Free; macht bei mir irgendwann eine Zugriffsverletzung) und kann man irgendwie abfragen, ob noch ein Panel auf der Oberfläche sichtbar ist, oder überhaupt existiert (letzteres nur, wenn man die auch freigibt )

[DeddyH]

Wenn Du nach dem Freigeben eines Panels dieses auf nil setzt, kannst Du anschließend mit Assigned() prüfen, ob es existiert. Da IIRC Delphi 3 noch kein FreeAndNil kennt, musst Du Ersteres wohl von Hand erledigen, aber das ist ja kein großer Aufwand.

[xZise]

Doch so wie er es macht schon. Bei ihm scheint das Fenster nicht mitzubekommen, dass ein Panel verschwindet.

Wird bei dir überhaupt noch das Event gefeuert? Ansonsten könnte man da noch das Formular dran hängen. Ich weiß nicht wie weit ihr in Informatik seit, aber es gäbe auch die Möglichkeit, dass das Panel den Fenster Bescheid sagt, das es gerade unsichtbar wurde.

Unschön über zirkuläre Referenzen (Das Fenster kennt die Panels und die Panels kennen das Fenster):

Delphi-Quellcode:

type
  TColoredPanel = class(TPanel)
....


uses
  UForm1; // Jerks ... bitte nur wenn es nicht anders geht (s.u.)

procedure TColoredPanel.MouseEnter(...
begin
  Visible := false;
  Form1.NotifyVisibility(Self); // Ein Panel ist entschwunden :D
end;

Das wäre quick & dirty: Wenn das Fenster mal nicht mehr Form1 heißt musst du es auch da ändern. Außerdem was ist, wenn mal nicht das Fenster Form1 dein Panel verwendet. Deshalb kann man das einfach mit Ereignissen regeln:

Delphi-Quellcode:

type
  TColoredPanel = class; // Definieren, dass es eine Klasse TColoredPanel gibt

  TVisibilityEvent = procedure(Sender : TColoredPanel) of object; // Definiert, einen Methodenrumpf

  TColoredPanel = class(TPanel)
  private
    FEvent : TVisibilityEvent; // Hier wird gespeichert, welche Methode aufgerufen werden soll, wenn das Panel unsichtbar wird.
    procedure MouseEnter(....
  public
    property VisibilityEvent : TVisibilityEvent read FEvent write FEvent;
  end;

procedure TColoredPanel.MouseEnter(...
begin
  Visible := false;
  if Assigned(FEvent) then // Nur das Ereignis auslösen wenn es gesetzt ist
    // Die gespeicherte Funktion aufrufen
    FEvent(Self); // Ein Panel ist entschwunden :D
end;

In der Form machst du dann:

Delphi-Quellcode:

// Wo du die Panels erstellst
var
  p : TColoredPanel;
[...]
  p.VisibilityEvent := ... // Hier das Ereignis eintragen

Und im Ereignis kannst du dann herunter zählen, oder das Panel löschen, was auch immer

MfG
Fabian

[erik-17]

Danke für die Antworten

Mit den Events komme ich noch nicht so gut zurecht...
Wenn es euch nicht zu viel ist: Was soll mann bei "p.VisibilityEvent:=" einschreiben, wenn eine Variable um eins veringert werden soll.
Sorry für die vielen Fragen, aber ich würde das ganz gerne noch schaffen