显示窗体

tinachen0505

各位大侠，
小女子又有问题向你们请教了，我通过File|New|Application命令，创建了一个应用程序，自动生成窗体Form1,再执行File|New|Form命令生成一个窗体Form2.我想用show方法显示Form2窗体。但是出现如下错误提示：Identifier not found “form2".不甚感激！
procedure TForm1.Button1Click(Sender: TObject);
begin
  form2.show;

end;

procedure TForm1.Button2Click(Sender: TObject);
begin
  form1.close;

end;
                          

lookback

在引用哪里加上即uses unit2; 后面 第二个单元的名称默认是unit2

sail2000

按一下 ALT+ F11，选择需要添加的单元。
如果只需要你自己建立的单元，去掉"show all unit"的勾

tinachen0505

谢谢你的解答，可是我刚才按照你的方法去试了一下，在Unit1的implementation 写入uses unit2, 可是出现如下的错误提示：Fatal:Syntax error,";" expected but " procedure" found. 麻烦你再帮我看一下，谢谢!

zwz

不要死看书，要注意多实践，多测试，有自己的思路和想法

whysibee

unit Unit1;

{$mode objfpc}{$H+}

interface

uses
  Classes, SysUtils, FileUtil, Forms, Controls, Graphics, Dialogs, StdCtrls;

type

  { TForm1 }

  TForm1 = class(TForm)
    Button1: TButton;
    procedure Button1Click(Sender: TObject);
  private
    { private declarations }
  public
    { public declarations }
  end;

var
  Form1: TForm1;

implementation

uses
  Unit2;

{$R *.lfm}

{ TForm1 }

procedure TForm1.Button1Click(Sender: TObject);
begin
  Form2.Show;
end;

end.                                                            

这样是可以的。

sail2000

tinachen0505:谢谢你的解答，可是我刚才按照你的方法去试了一下，在Unit1的implementation 写入uses unit2, 可是出现如下的错误提示：Fatal:Syntax error,";" expected but " procedure" found. 麻烦你再帮我看一下，谢谢!
 (2012-07-18 14:56) 

这个明显的是语法不正确的问题。