汗,一个棘手的问题

[TButton]

汗,手工初始窗体却发生了异常.

program Project1;

uses
  Forms,
  Unit1 in 'Unit1.pas' {Form1},
  Unit2 in 'Unit2.pas' {Form2};

{$R *.res}

begin
  Application.Initialize;
  //Application.MainFormOnTaskbar := True;
  TForm1.create(Application).ShowModal;    {修改后启动发生异常}
  //Application.CreateForm(TForm1, Form1);
  Application.Run;
end.

好像是下面过程的原因,好像冲突了

procedure TForm1.FormResize(Sender: TObject);
begin
  Button1.top:=(Form1.ClientHeight-Button1.Height);
end;

[de410]

测试了，没有问题啊~~

[de410]

把错误提示贴出来~~

[starluck]

procedure TForm1.FormResize(Sender: TObject);
begin
  Button1.top:=(self.ClientHeight-Button1.Height);
end;

[starluck]

引用了沒有初始化實例的引用了。

[TButton]

[Quote=引用 1 楼 de410 的回复:]
测试了，没有问题啊~~
[/Quote]

{不可能吧,有没有把所有窗体都设为Available forms}
program Project1;

uses
  Forms,
  Unit1 in 'Unit1.pas' {Form1},
  Unit2 in 'Unit2.pas' {Form2};

{$R *.res}

begin
  Application.Initialize;
  TForm1.create(Application).ShowModal;    {修改后启动就发生异常}
  Application.Run;
end.

Form1的过程

procedure TForm1.FormResize(Sender: TObject);
begin
  Button1.top:=(Form1.ClientHeight-Button1.Height);
end;

[lovelymelon]

在只有一个窗体的情况下，允许这样吗？主窗体直接showmodal好像不行吧

如果不是主窗体，可以把showmodal放到代码里嘛

[bdmh]

还是贴出错误提示吧

[zshsuming]

恩，错误提示看看