[Error] Project1.dpr(13): Undeclared identifier: 'RMPageSetupForm'是什么错误?(25分)

  • 主题发起人 tswhoney
  • 开始时间
T

tswhoney

Unregistered / Unconfirmed
GUEST, unregistred user!
原代码如下:
program Project1;

uses
Forms,
Unit1 in 'Unit1.pas' {Form1},
RM_prdlg in 'RM_prdlg.pas' {RMPrintForm},
RM_Pgopt in 'RM_pgopt.pas' {RMPageSetupForm};

{$R *.res}

begin
Application.Initialize;
Application.CreateForm(TRMPageSetupForm, RMPageSetupForm);
Application.CreateForm(TForm1, Form1);
Application.Run;
end.
运行后出现错误提示如下:
[Error] Project1.dpr(13): Undeclared identifier: 'RMPageSetupForm'
不知是哪儿的错误?请高手指教.
 
再 begin 前加上:
var
RMPageSetupForm:TRMPageSetupForm;
 
to jsxjd:
我在另一窗体上放个按钮显示rmpagesetupform中的内容,还是提示同样的错误,请帮忙看看。
原码如下,RM_Pgopt是rmpagesetupform所在的单元:
unit Unit1;

interface

uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs,RM_prdlg, StdCtrls;

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

var
Form1: TForm1;
//rmpagesetupform:trmpagesetupform;

implementation

uses RM_Pgopt;

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
begin
rmpagesetupform.show;
end;

end.
 
原代码如下:
program Project1;

uses
Forms,
Unit1 in 'Unit1.pas' {Form1},
RM_prdlg in 'RM_prdlg.pas' {RMPrintForm},
[:D]RM_Pgopt in 'RM_pgopt.pas' {RMPageSetupForm};[:D]

{$R *.res}

begin
Application.Initialize;
//[:D] Application.CreateForm(TRMPageSetupForm, RMPageSetupForm);[:D] //replace this line.
Application.CreateForm(TForm1, Form1);
Application.Run;
end.
[8D][8D][8D][8D][8D][8D]
replace it with application.createform(TRM_Pgopt,RM_Pgopt);
[8D][8D][8D][8D][8D][8D]
 
RM_Pgopt单元中少了全局变量定义,把这个单元贴出来。
 
在RM_Pgopt单元中定义以下变量应该可以:
var
RMPageSetupForm:TRMPageSetupForm;

看来这是一个 DirectX 的东东,是不是。
如果不想在RM_Pgopt单元中做变动,
你可以新建一个单元来声明这个变量,程序中用到这个变量的单元都uses 这个单元。

在程序启动时初始化,结束时进行必要的清理(Free)
 
按照我說的去做,問題該解決了.[8D][8D][8D]
 
多人接受答案了。
 
顶部