Обрезание курсора пользователя вокруг кнопки X

Question

Это должно быть просто, и я надеялся сделать это в Delphi. Предполагается, что целью этого является шутка.

В приложении Windows Form я не хочу, чтобы пользователь мог нажимать кнопку 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;