Hoover Effekt bei Panel geht nicht. OnMouseLeave fehlt...

[flomei]

Wie mach ich das denn bei mehreren Panels? Ich hab probiert die Namen umzuändern aber das klappt nicht.

Delphi-Quellcode:

//Hoover fürs erste Panel
    procedure PnlCheckLengthHooverOn(var Message: TMessage); message CM_MOUSEENTER;
    procedure PnlCheckLengthHooverOff(var Message: TMessage); message CM_MOUSELEAVE;
//Hoover fürs zweite Panel
    procedure PnlResetHooverOn(var Message: TMessage); message CM_MOUSEENTER;
    procedure PnlResetHooverOff(var Message: TMessage); message CM_MOUSELEAVE;

Fehlermeldung:

Zitat:

[Error] MainFormUnit.pas(32): Duplicate message method index
[Error] MainFormUnit.pas(33): Duplicate message method index

32 und 33 sind die beiden Zeilen in denen das nochmal vorkommt.

Schonmal Danke!

MfG Florian