delphi去除最小化最大化按钮

 

 protected
    procedure CreateParams(var Params: TCreateParams);override;

 

procedure TMainForm.CreateParams(var Params: TCreateParams);
begin
  inherited;

  with Params do
  begin
    //Style := Style and (not WS_SYSMENU);
    Style := Style and (not WS_MINIMIZEBOX);
    Style := Style and (not WS_MAXIMIZEBOX);
  end;
end;