怎么改变窗口大小?急

Question

form的BorderStyle属性设为了bsDialog
我想实现窗口初始高度为100,按一个按钮将窗口的高度改为200
可是没有反应.
我的语句是: form1.Height :=100;

Answer 1

你把form的BorderStyle属性改一下

Answer 2

在我这儿没问题
procedure TForm1.FormCreate(Sender: TObject);
begin
form1.Height :=100;
end;procedure TForm1.Button1Click(Sender: TObject);
begin
form1.Height :=200;
end;

Answer 3

也用不着改属性的，就你设置的form的BorderStyle属性设为了bsDialog 没问题的

Answer 4

我发现我把这个窗口加到一个简单应用里就没问题。而我的窗口是这样写的：
var
  DiskBorrowForm1: TDiskBorrowForm;
begin
  Application.CreateForm(TDiskBorrowForm, DiskBorrowForm1);
  DiskBorrowForm1.Visible := false;
  DiskBorrowForm1.ShowModal;
用这种方式打开的窗口，里面写改变窗口高度的语句就不管用，是这样的吗？没有解决办法吗？

Answer 5

DiskBorrowForm1.Visible := false;
这句家进去有什么意义吗？？

Answer 6

不设为false，createform方法创建出来的窗口，showmodal报错