Cursor auf der FormTitelleiste ändern?

[AlexII]

Hallo,

wie ändere ich den Cursor in der Titelleiste des Formulars? Irgendwie finde ich nix im OI :gruebel:

[DP-Maintenance]

Dieses Thema wurde von "Matze" von "Programmieren allgemein" nach "VCL / WinForms / Controls" verschoben.
Denke bitte daran, die Fragen in der richtigen Rubrik zu stellen.
TForm -> VCL

[Luckie]

Da wirst du im OI auch nichts finden, da der Teil des Fensters von Windows gezeichnet wird und somit der Cursor verwendet wird, den der Benutzer eingestellt hat.

[AlexII]

Ok, was soll's, danke :(

[stoxx]

da bleibt Dir nix anderes übrig, als selber zu prüfen, ob Du in der Titelleiste bist.

also im OnMouseMoveEvent (sofern das in der Titelleiste noch geliefert wird .. weiß ich jetzt nicht)
prüfst Du, ob drin ...
ansonsten müsstest Du noch das onmouseleave Event prüfen und dann einen Timer starten oder so ..
oder einen kleinen Mousehook..


dann fragst Du also im MouseMoveEvent mit GetCursorPos die Koordinaten ab. und prüfst mit folgender Funktion ob Du drin bist ...

und dann änderst Du Deinen Cursor manuell ...

Delphi-Quellcode:

//==============================================================================
// Prüft ob die Mauskoordinaten in der Titelleiste sind
// entwickelt für XP .. koennte sein, dass es in Vista noch paar Variablen mehr gibt

function IsMouseInCaption(WND : HWND; x, y : Integer) : boolean;
var WindowRect : TRect;
    CaptRect : TRect;
    h, hBorder : Integer;
begin
  result := false;

  GetWindowRect(WND, WindowRect);


  CaptRect.Left := GetSystemMetrics(SM_CXEDGE);
  CaptRect.Top := GetSystemMetrics(SM_CYEDGE)+2;
  CaptRect.Right := WindowRect.right-WindowRect.Left-GetSystemMetrics(SM_CYEDGE);
  CaptRect.Bottom := GetSystemMetrics(SM_CYCAPTION)+GetSystemMetrics(SM_CYEDGE);


  h := GetSystemMetrics(SM_CYCAPTION);

  h := GetSystemMetrics(SM_CYCAPTION);
  hBorder := GetSystemMetrics(SM_CYSIZEFRAME);
  if (y <= (WindowRect.Top + h + hborder + 1)) and
     (y >= WindowRect.top) and
     (x >= WindowRect.Left) and
     (x <= WindowRect.Right)

        then result := true;

end; //  IsMouseInCaption

[DeddyH]

Es müsste doch eigentlich reichen, WM_NCHITTEST abzufangen, oder?

[stoxx]

ähm .. ups .. ich glaube, es würde für eigene Forms reichen, wenn man im MouseMoveEvent form1.height - form1.Clientheight errechnet, und prüft ob y kleiner diesem Wert ist :-)

dann ist man in der titelleiste ..

meine Funktion war für beliebige (fremde) WindowsFenster .. ist aus meiner QuickSwitchSoftwre ...

[AlexII]

Thx :thumb: