Formulartitelleiste

[Stinger]

Hi,

wie kann man erkennen ob sich der Mauszeiger in der Titelleiste eines Formulars befindet?

Gruß

Stinger

[sakura]

Hi Stinger,

dazu musst Du die Windows-Botschaft WM_NCMOUSEMOVE abfangen

Delphi-Quellcode:

type
  TForm1 = class(TForm)
  private
    { Private declarations }
  protected
    procedure WmNcMouseMove(var Msg: TWMNCMouseMove); message WM_NCMOUSEMOVE;
  public
    { Public declarations }
  end;

...

procedure TForm1.WmNcMouseMove(var Msg: TWMNCMouseMove);
begin
  ShowMessage('Maus in Form ausserhalb des Client Bereiches');
  inherited;
end;

Damit wird allerdings auch erkannt, wenn die Mouse den Rand berührt, aber das kann man ja abgfangen...

...:cat:...

[eddy]

Hallo Sakura,

WmNcMouseMove springt auch schon an, wenn der Mauszeiger in das MainMenu kommt. Kann man auch noch die Koordinaten (X,Y) des Mauszeigers innerhalb von WmNcMouseMove ermitteln?

mfg
eddy

[Stinger]

Und wie kann ich verhindern dass Windows erkennt dass sich der Mauszeiger in der Titelleiste befindet, sprich dass es irgendeine Msg. erhält wenn der Cursor in dem Bereich ist?

[s14]

Da TWMNCMouseMove von TWMNCHitMessage kommt sollte

Delphi-Quellcode:

if msg.HitTest = htCaption then ...

funktionieren.

Gruß
s14

[Stinger]

Und wie blockier ich die jetzt? indem ich Win vorgauckle es wäre nicht in der Titelleiste sondern im Client?

EDIT: Ok, das hat funktioniert. Das Problem ist, jetzt kann ich die Bordericons nicht mehr anklicken.

[s14]

ich vermute mal

Delphi-Quellcode:

if msg.HitTest = htCaption then msg.HitTest := HTNOWHERE

oder

Delphi-Quellcode:

if msg.HitTest = htCaption then msg.HitTest := HTCLIENT

[Stinger]

Funktioniert doch nicht so, das Fenster lässt sich immer noch verschieben.

[s14]

Dann solltest Du die MouseDown Nachricht abfangen

Delphi-Quellcode:

procedure WMNcLButtonDown(var msg: TWMNcLButtonDown); message WM_NCLBUTTONDOWN;

procedure TForm1.WMNcLButtonDown(var msg: TWMNcLButtonDown);
begin
  if msg.HitTest = htCaption then msg.HitTest := htClient;
  inherited;
end;

Hab ich jetzt aber nicht getestet :roll:

[Stinger]

Funktioniert, danke :).