Testen, ob Maus Form verlassen hat

[Hawkeye219]

Hallo,

das Abfangen von CM_MouseEnter und CM_MouseLeave ist doch eine gute Basis. Vielleicht könnte man es so machen:

Delphi-Quellcode:

type
  TForm1 = class (TForm)
  private
    procedure CMMouseEnter(var Message: TMessage); message CM_MOUSEENTER;
    procedure CMMouseLeave(var Message: TMessage); message CM_MOUSELEAVE;
  end;

procedure TForm1.CMMouseEnter(var Message: TMessage);
begin
  if PtInRect(BoundsRect, Mouse.CursorPos) then
    Color := clBtnFace;
end;

procedure TForm1.CMMouseLeave(var Message: TMessage);
begin
  if not PtInRect(BoundsRect, Mouse.CursorPos) then
    Color := clLime;
end;

Gruß Hawkeye