什么样才能只让窗体拉长而不能拉宽？？

Question

就如同ＱＱ一样只能拉长而不能拉宽？谢谢！！

Answer 1

procedure TForm1.FormCanResize(Sender: TObject; var NewWidth,
  NewHeight: Integer; var Resize: Boolean);
begin
  if NewWidth <> Form1.Width then
    Resize := False;
end;

Answer 2

把mixWidth和minWidth设成同一值就行了
给分

Answer 3

同意把mixWidth和minWidth设成同一值就行了

Answer 4

截获WM_WINDOWPOSCHANGING消息
窗体移动改变时会触发WM_WINDOWPOSCHANGING。
type
  TForm1 = class(TForm)
  private
   procedure OnPosChange(var msg:TWMWINDOWPOSCHANGING);MESSAGE WM_WINDOWPOSCHANGING;
    { Private declarations }
  public
    { Public declarations }
  end;var
  Form1: TForm1;implementation{$R *.dfm}procedure TForm1.OnPosChange(var msg:TWMWINDOWPOSCHANGING);
begin
 //msg.WindowPos.x:=Left;
 Msg.WindowPos.cx:=width;//固定width
 Msg.Result:=0;
end;

Answer 5

设置窗体的Constraints->MaxWidth、MinWidth属性为你想要的值

Answer 6

问问，mixWidth和minWidth在哪里设的？