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

[Joe_the_Junkie]

Danke für eure ganzen vielen Antworten. Ich werde diese noch testen und gucken, was am besten ist.
Tut mir leid, wenn ich mich jetzt erst bedanke, aber ich hatte nicht ganz so viel Zeit. :pale:

Ich melde mich dann, wenn ich die ganzen Vorschläge beantwortet hate.

Mfg Joe the Junkie