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