[Win32 API] Trotz setzen von hCursor nur die Sanduhr

[igel457]

Vielen Dank, das hat mir geholfen.

Mein jetziger Code:

Delphi-Quellcode:

FHCur := LoadCursor(0, IDC_ARROW);

FWnd.cbSize := SizeOf(TWndClassEx);
FWnd.style := CS_HREDRAW or CS_VREDRAW or CS_DBLCLKS;
FWnd.lpfnWndProc := FWndProc;
FWnd.cbClsExtra := 0;
FWnd.cbWndExtra := 0;
FWnd.hbrBackground := CreateSolidBrush(0);
FWnd.lpszMenuName := nil;
FWnd.lpszClassName := 'WndClass';
FWnd.hIconSm := 0;
FWnd.hInstance := hInstance;
FWnd.hIcon := LoadIcon(hInstance, MAKEINTRESOURCE(100));
FWnd.hCursor := FHCur;

RegisterClassEx(FWnd);
FHandle := CreateWindowEx(0, 'WndClass', PChar(Title), WndStyle,
  0, 0, AProps.Width, AProps.Height, 0, 0, hInstance, nil);

SetCursor(FHCur);

Nochmal vielen Dank!

Edit:
In der Ereignissverarbeitungsprozedur sollte man noch ein

Delphi-Quellcode:

case
  WM_SETCURSOR:
    SetCursor(FHCur);

einfügen.

Edit 2:
Noch besser ist folgender Code:

Delphi-Quellcode:

case
  WM_SETCURSOR:
    if (lParam and $0000FFFF) = (HTCLIENT) then
      Windows.SetCursor(FHCur)
    else
      Result := DefWindowProc(hWnd, uMsg, wParam, lParam);