delphi 非客户区右键点击

public
  { Public declarations }
  procedure WMNCLBUTTONDOWN(var msg: TMessage); message WM_NCRBUTTONDOWN;


procedure TForm1.WMNCLBUTTONDOWN(var msg: TMessage);
begin

    showmessage('右键点击了');
 // close;
end;