请问如何让窗体控件随窗体最大化而改变，还有如何让最大化键无效？

Question

让最大化无效：form1.bordericons := [biSystemMenu,biMinimize];

Answer 1

将窗体的BorderStyle里面的biMaximize设为false就可以让最大化键无效！

Answer 2

把窗体里面的各控件的Anchors属性的四个都设置为True。如果只想左固定，就只设置alLeft为True，以此类推去掉窗体的最大化按钮：设置窗体的BorderIcons属性，把其中的biMaxmize设置为False

Answer 3

1.应该在onresize事件里重新算控件的大小!
2.
unit Unit1;
interface
uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  StdCtrls;
type
  TForm1 = class(TForm)
  private
    procedure WMSysCommand(var Msg: TWMSysCommand); message WM_SYSCOMMAND;
    { Private declarations }
  public
    { Public declarations }
  end;
var
  Form1: TForm1;
implementation
{$R *.DFM}
procedure TForm1.WMSysCommand;
begin
  if (Msg.CmdType = SC_MAXIMIZE) then
     msg.Msg:=WM_NULL;
  inherited;
end;end.

Answer 4

哦，错了，是Bordericons，不是BorderStyle!

Answer 5

1.应该在窗体的onresize事件中重画控件的大小
2。
unit Unit1;
interface
uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  StdCtrls;
type
  TForm1 = class(TForm)
    Button1: TButton;
    procedure FormCreate(Sender: TObject);
  private
    procedure WMSysCommand(var Msg: TWMSysCommand); message WM_SYSCOMMAND;
    { Private declarations }
  public
    { Public declarations }
  end;
var
  Form1: TForm1;
implementation
{$R *.DFM}
procedure TForm1.WMSysCommand;
begin
  if (Msg.CmdType = SC_MAXIMIZE) then
     msg.Msg:=WM_NULL;
  inherited;
end;procedure TForm1.FormCreate(Sender: TObject);
beginend;end.

Answer 6

1.编程实现,让控件大小随窗体大小成比例缩放;2.设置窗体的BorderIcons＝>bimaximize为false
或者编程实现：form1.BorderIcons:=[];

Answer 7

使最大化按钮变灰：
var mnu: HMENU;
begin
  mnu := GetSystemMenu(Handle, False);
  EnableMenuItem(mnu,SC_CLOSE,MF_BYCOMMAND+MF_DISABLED+MF_GRAYED);
end;
procedure TForm1.FormCreate(Sender: TObject);
var mnu: HMENU;
begin
  mnu := GetSystemMenu(Handle, False);
  DeleteMenu(mnu, SC_MAXIMIZE, MF_BYCOMMAND);
end;

Answer 8

对不起，错了一点
EnableMenuItem(mnu,SC_MAXIMIZE,MF_BYCOMMAND+MF_DISABLED+MF_GRAYED);