Form MouseEnter/Leave problem

[DeddyH]

Das ist in TControl doch bereits enthalten und löst OnMouseLeave aus.

[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.

[DelTurbo]

@baumina, das ist das gleiche. Sobald man in die Captionbar geht, kommt der Leave. Der einzige unterschied ist, das man nun über Buttons, Panels usw. fahren kann ohne das ein Leave kommt.

Trotzdem danke!