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

Hallo,
such mal nach CM_MOUSELEAVE und CM_MOUSEENTER

Moin!

zusammenfalten · markieren

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

man hätte nur mal suchen müssen

Mouse Leave

is einfach noch zu früh

THX@Jens Schumann

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