如何修改窗体的系统菜单栏??

Question

在窗体系统的菜单栏有“还原",移动，大小，等等。我想自己随意修改。
怎么实现呢

Answer 1

type
  TFormMain = class(TForm)
  
   ...
  
  private
  
    procedure WMSYSCOMMAND(var Msg: TMessage); message WM_SYSCOMMAND;
  
  ...procedure TFormMain.WMSYSCOMMAND(var Msg: TMessage);
var
  PointTemp: TPoint;
begin
  if Msg.wParam 61587: // sysIcon clicked
  begin
    if GetCursorPos(PointTemp) then
      PopupMenuMain.Popup(PointTemp.X, PointTemp.Y);
  end
  else
    inherited;
  end;
end;

Answer 2

type
  TFormMain = class(TForm)
  
   ...
  
  private
  
    procedure WMSYSCOMMAND(var Msg: TMessage); message WM_SYSCOMMAND;
  
  ...procedure TFormMain.WMSYSCOMMAND(var Msg: TMessage);
var
  PointTemp: TPoint;
begin
  if Msg.wParam = 61587: // sysIcon clicked
  begin
    if GetCursorPos(PointTemp) then
      PopupMenuMain.Popup(PointTemp.X, PointTemp.Y);
  end
  else
    inherited;
  end;
end;

Answer 3

type
  TFormMain = class(TForm)
  
   ...
  
  private
  
    procedure WMSYSCOMMAND(var Msg: TMessage); message WM_SYSCOMMAND;
  
  ...procedure TFormMain.WMSYSCOMMAND(var Msg: TMessage);
var
  PointTemp: TPoint;
begin
  if Msg.wParam = 61587 then // sysIcon clicked
  begin
    if GetCursorPos(PointTemp) then
      PopupMenuMain.Popup(PointTemp.X, PointTemp.Y);
  end
  else
    inherited;
  end;
end;