TPanel OnMouseExit?

[LoL]

moin,

ich brauche eine komponente ähnlich wie TPanel. Der Rand(Bevel) muss einstelllbar sein. Ich will die Komponente grunsätzlich flach haben aber sobald man mit der maus drüber geht soll der Rand "raised" sein und sobald der maus-zeiger die Komponente verlässt soll die Kompo wieder flach sein. Also onMouseMove hab ich ja schon mal aber ich bräuchte noch sowas wie OnMouseExit. Ich hab mir jetzt gedacht ich schreib mir eine eigene Komponente mit dem "OnMouseExit"-Ereigniss aber vielleicht hat jemand ne bessere Idee?

PS: es ist einfach noch zu früh zum denken :drunken:

[Jens Schumann]

Hallo,
such mal nach CM_MOUSELEAVE und CM_MOUSEENTER

[Stevie]

Moin!

Delphi-Quellcode:

type
  TPanel = class(ExtCtrls.TPanel)
  protected
    procedure WMMouseMove(var Message: TWMMouse); message WM_MOUSEMOVE;
    procedure WMMouseLeave(var Message: TWMMouse); message WM_MOUSELEAVE;
  end;

{...}

procedure TPanel.WMMouseLeave(var Message: TWMMouse);
begin
  inherited;
  if BevelOuter = bvRaised then
    BevelOuter := bvNone;
end;

procedure TPanel.WMMouseMove(var Message: TWMMouse);
var
  EventTrack: TTrackMouseEvent;
begin
  inherited;
  if BevelOuter = bvNone then
  begin
    BevelOuter := bvRaised;
    EventTrack.dwFlags := TME_LEAVE;
    EventTrack.hwndTrack := Handle;
    EventTrack.cbSize := SizeOf(EventTrack);
    TrackMouseEvent(EventTrack);
  end;
end;

MfG
Stevie

[LoL]

man hätte nur mal suchen müssen

Mouse Leave

is einfach noch zu früh

THX@Jens Schumann

[LoL]

ich hab noch was viel besseres:
wenn man den speedbutton auf flat=true setzt dann erziele ich genau den erwünschten effekt