Ermitteln ob die Maus auf der Form ist?

[Sir Rufo]

Zitat von smart:

wie kan man ermitteln ob die Maus noch im Fenster oder ausserh. des Fensters ist?

Brauchst du jetzt eine Abfrage oder ein Event?

Eine Abfrage würde so aussehen:

Delphi-Quellcode:

function MouseOverWindow( aHandle : HWND ) : Boolean;
var
  wndHandle : HWND;
begin
  wndHandle := WindowFromPoint( Mouse.CursorPos );

  while ( wndHandle <> 0 ) and ( wndHandle <> aHandle ) do
    begin
      wndHandle := GetParent( wndHandle );
    end;

  Result := ( wndHandle <> 0 );
end;

und in deinem Projekt dann so:

Delphi-Quellcode:

procedure TForm1.Timer1Timer( Sender : TObject );
begin
  // Wir nehmen das Handle dieser Form
  if MouseOverWindow( Self.Handle ) then
    Caption := 'ja'
  else
    Caption := 'false';
end;