Cursor von eigener Klasse per Default ändern

[SirThornberry]

ich hab das ganze jetzt gelöst in dem ich die message WM_SETCURSOR abfange und selbst auwerte.

Delphi-Quellcode:

procedure TAdvEditControl.FWMSETCURSOR(var AMsg: TWMSetCursor);
var lCursor: TCursor;
begin
  if (AMsg.CursorWnd = Self.Handle) and not(csDesigning in ComponentState) then
  begin
    case Smallint(AMsg.HitTest) of
      HTCLIENT: begin
                  if Cursor = crDefault then
                    lCursor := crIBeam
                  else
                    lCursor := Cursor;
                  if Screen.Cursor <> lCursor then
                    windows.SetCursor(Screen.Cursors[lCursor]);
                end;
      else inherited;
    end;
  end
  else
    inherited;
end;