在X按钮周围剪切用户光标

Question

这应该很简单，我希望在Delphi中这样做。 这个目的只是个笑话。

在Windows窗体应用程序中，我不希望用户能够单击主窗体上的X按钮。我希望光标可以在X按钮周围剪辑，或者只是将其设置在其他位置。

Answer 1

写

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

procedure TForm1.NcMouseMove(var Message: TWMNCMouseMove);
begin
  inherited;
  with Message do
    if HitTest = HTCLOSE then
      SetCursorPos(XCursor + GetSystemMetrics(SM_CXMENUSIZE), YCursor)
end;