【搞定】调用窗体**

刺青

我想在窗体A中,单击“button1"按扭后，显示窗体B。但老是出错，如图：

窗体A的代码：
unit MainForm;

interface

uses
  Business.System, Business.Model, Business.Forms;

type
  TMainForm = class(TForm)
    FuncBroker: TFuncBroker;
    InfoBrokerJHDDXX: TInfoBroker;
    ControlBar: TControlBar;
    DataNavigator: TDataNavigator;
    Panel: TPanel;
    DocViewJHDDXX_JHDD: TDocView;
    Edit1: TEdit;
    Button1: TButton;
    procedure Button1Click(Sender: TObject);
  private
    {private declarations}
  public
    {public declarations}
  end;

implementation
var
   FM: TGHDWCT;

procedure TMainForm.Button1Click(Sender: TObject);
begin
     FM := TGHDWCT.Create(Self.Context);
     try
        Dialogs.ShowMessage(FM.Caption);
     finally
            FM.Free;
     end;
end;

end.

窗体B的代码：
unit GHDWCT;

interface

uses
  Business.System, Business.Model, Business.Forms, Business.Data;

type
  TGHDWCT = class(TForm)
    FuncBroker: TFuncBroker;
    InfoBrokerGHDWXX: TInfoBroker;
    ControlBar: TControlBar;
    DataNavigator: TDataNavigator;
    Panel: TPanel;
    DocViewGHDWXX_GHDW: TDocView;
    DataGrid1: TDataGrid;
    DataSetBroker1: TDataSetBroker;
  private
    {private declarations}
  public
    {public declarations}
  end;

implementation


end.

atiger

请先编译一下 JHDDGH 这个功能，看看编译是否正常，应该这个就不能过吧。

刺青

确实不能过，错误信息：
[错误]Biz:\GJP\JHYW\JHDDGN.FUNC.DIR\MainForm.Form.pas(27, 8): Undeclared identifier "TGHDWCT"

刺青

问一下，声明一个窗体在哪里写代码?

刺青

在type下面声明，一保存就出现这个错误,如图:

atiger

窗体A和窗体B在一个功能下吗？如果不是请参考 http://bbs.justep.com/forum.php?mod=viewthread&tid=523  第二种方法。

刺青

这样算不算在一个功能下？怎么才算在同一功能中

atiger

呵呵，你看呀， 进货订单功能 是一个功能 ，供货单位功能 是一个功能，当然是两个功能了，
见附件图， 窗体1  和  主窗体 这样的两个窗体才算一个功能

刺青

噢。原来是这样，明白了
感谢你的耐心回答
结贴吧

atiger

ok