Einzelnen Beitrag anzeigen

Benutzerbild von stahli
stahli

Registriert seit: 26. Nov 2003
Ort: Halle/Saale
4.343 Beiträge
 
Delphi 11 Alexandria
 
#4

AW: OnMouseOver bei Array of TPanel

  Alt 2. Okt 2010, 14:12
Ach so, Du willst es weiterhin als Ereignisbehandlung im Formular lassen...
Dann musst Du vorhaer allen Panels die gleiche Ereignisbehandlung zuweisen und Dich dann auf den Auslöser des Ereignisses beziehen:

Delphi-Quellcode:
procedure TForm1.PanelsMouseOver(Sender: TObject);
var
  MyPanel: TPanel;
begin
  if Sender is TPanel then
  begin
    MyPanel := (Sender as TPanel);
    MyPanel.Visible := False;
  end;
end;
Ob ein MyPanel.Free an der Stelle zu Problemen führen könnte kann ich jetzt nicht ausschließen. Man sollte das sicher nicht tun, da der "Rest" der Mausreaktion in dem dann zerstörten Panel noch ausgeführt wird.
Stahli
http://www.StahliSoft.de
---
"Jetzt muss ich seh´n, dass ich kein Denkfehler mach...!?" Dittsche (2004)
  Mit Zitat antworten Zitat