Form MouseEnter/Leave problem

[baumina]

Versuchs einfach mal wahlweise:

Delphi-Quellcode:

type
  TForm56 = class(TForm)
    Label1: TLabel; // innerhalb des Panels
    Panel1: TPanel; // Panel alClient auf Form
    procedure FormMouseEnter(Sender: TObject); // so klappts nicht
    procedure FormMouseLeave(Sender: TObject);
  private
    { Private-Deklarationen }
(*    procedure CMMouseEnter(var Msg: TMessage); message CM_MOUSEENTER; // aber so gehts
    procedure CMMouseLeave(var Msg: TMessage); message CM_MOUSELEAVE;*)
  public
    { Public-Deklarationen }
  end;

var
  Form56: TForm56;

implementation

{$R *.dfm}

(*

procedure TForm56.CMMouseEnter(var Msg: TMessage);
begin
  Label1.Visible := True;
end;

procedure TForm56.CMMouseLeave(var Msg: TMessage);
begin
  Label1.Visible := False;
end;
*)

rocedure TForm56.FormMouseEnter(Sender: TObject);
begin
  Label1.Visible := True;
end;

procedure TForm56.FormMouseLeave(Sender: TObject);
begin
  Label1.Visible := False;
end;

end.