OnMouseOver bei Array of TPanel

[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 )