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

[Sharky]

Zitat von alexander:

das ....
Ich kann mich einfach nicht an die GEburtagsfarben gewöhnen

Hihi.... und weil mir die Farben so gut gefallen:

Delphi-Quellcode:

type
  TForm1 = class(TForm)
    Panel1: TPanel;
  private
    { Private-Deklarationen }
  public
    procedure CMMouseEnter(var Message: TMessage); message CM_MOUSEENTER;
    procedure CMMouseLeave(var Message: TMessage); message CM_MOUSELEAVE;
  public
    { Public-Deklarationen }
  end;

var
  Form1: TForm1;

implementation

{$R *.DFM}

procedure TForm1.CMMouseEnter(var Message: TMessage);
var
  ptWork : TPoint;
begin
  GetCursorPos(ptWork);
  if WindowFromPoint(ptWork) = Panel1.Handle then  //Maus ist über dem Panel1
  begin
   Panel1.BevelInner := bvRaised;
  end;
end;

procedure TForm1.CMMouseLeave(var Message: TMessage);
var
  ptWork : TPoint;
begin
  GetCursorPos(ptWork);
  if WindowFromPoint(ptWork) <> Panel1.Handle then  //Maus verlässt das Pannel1
  begin
   Panel1.BevelInner := bvNone;
  end;
end;

Dieser Code macht für Panel1 den Hoover Effekt wie flomei in möchte.