Question

关于昨天delphi的问题

unit Unit1;
interface

uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, ComCtrls, ToolWin;

type
TForm1 = class(TForm)
ToolBar1: TToolBar;
ToolButton1: TToolButton;
ToolButton2: TToolButton;
ToolButton3: TToolButton;
ToolButton4: TToolButton;
ToolButton5: TToolButton;
ToolButton6: TToolButton;
ToolButton7: TToolButton;
procedure ToolButton1Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;

var
Form1: TForm1;
form2:tform2;
implementation

{$R *.dfm}

procedure TForm1.ToolButton1Click(Sender: TObject);
begin
form2:=tform2.Create(nil);
try
form2.ShowModal;
finally
form2.Free;
end;
end;
//form2必须在运行时已经创建了，而且已经引用了form2单元！

end.
帮我看看，怎么回事，好像就是没法链接到form2 form2是子窗体

Answer 1

收到求助了。不知道昨天是什么问题呀。忘记了呀！
form2:tform2; 从这个单元看，这个定义是不正确的。这个单元并没有tform2。
楼上引用USES的方式是正确的。不过，不用写代码的。选择菜单 File -> Use Unit，然后找到对应的单元。
form2:=tform2.Create(nil); 可能会出问题，因为你要确认此窗体还未创建才适合这个应用。是否创建可以工程项目文件中查看到，或通过Project -> Option中设置。
可以参照如下的写法：if (form2 = nil) then form2:=tform2.Create(nil);

详细的内容，可以进一步沟通。关于这个窗体的操作，有些学问。哈。QQ群:47064293

Answer 2

楼主在这一部分 开头第三行
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,Dialogs, ComCtrls, ToolWin;

后面加上Unit2,就是你的Form2的单元文件名
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,Dialogs, ComCtrls, ToolWin,unit2;

应该就好了
还有问题hi我

Answer 3

form2：变量是公共的。去掉