访问用PageControl封装的窗体变量报内存错误，请教高人

2012-08-20 10:23:37 136 阅读 AI 写同款 · GEO 优化AI 选题数据监测一键分发 ›

SAP Smartform小结 SAP系统做打印单据用的, 感觉很不好用, 特别是要嵌入韩文时必须使用嵌入的word编辑器,运行速度简直不可忍受. 见过一些Adobe interactive form的示例, 看着相当不错, 不过据说需要花money额外买licence, 哪有smartform这种免费东西来得实惠.Template则需要固定格式输出, 需要将所需要的表格画出格子, 然后将内容分配给各自的格子. 注意它的格子的大小是固定的, 如内容超出格子,将不会显示多余内容.一般打印需求,会要求有标题抬头,打印主体, 打印页脚. 阅读详情

我用PageControl封装窗体，当窗体创建后，再读取已创建的窗体变量时报内存错误，下面是所有代码：

program ShowFormDemo;

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

{$R *.res}

begin
Application.Initialize;
Application.CreateForm(TForm1, Form1); //注意，这里只创建Form1,其它窗体动态创建，如果都先创建就不报错
Application.Run;
end.

//下面是主窗体
unit Unit1;

interface

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

type
TForm1 = class(TForm)
Button1: TButton;
PageControl1: TPageControl;
procedure Button1Click(Sender: TObject);
private
{ Private declarations }
public
procedure ShowForm(AClass:TComponentClass;AForm:TForm);
{ Public declarations }
end;

var
Form1: TForm1;

implementation
uses Unit2,Unit3;
{$R *.dfm}
procedure TForm1.ShowForm(AClass:TComponentClass;AForm:TForm);//封装窗体的函数
var Tabsht: TTabSheet;
begin
Tabsht := TTabSheet.Create(Application);
Tabsht.PageControl:=PageControl1;
application.CreateForm(AClass,AForm);
AForm.Parent:=Tabsht;
Tabsht.Tag:=Integer(AForm);
AForm.BorderStyle:=bsNone;
AForm.Align:=alClient;
AForm.show;
Tabsht.Caption:=AForm.Caption;
PageControl1.ActivePage := Tabsht;
Tabsht.Show;
end;
procedure TForm1.Button1Click(Sender: TObject);
begin
ShowForm(TForm2,Form2);
Form2.FVal:=100;//这里报错
end;
end.

//下面是Form2窗体
unit Unit2;

interface

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

type
TForm2 = class(TForm)
private
{ Private declarations }
public
FVal:Integer;//只定义一个变量
{ Public declarations }
end;

var
Form2: TForm2;

implementation

{$R *.dfm}

end.

如果2个窗体在工程文件中都先创建好了，就不会报错，我怀疑在ShowForm(TForm2,Form2)后，Form2是局部变量，导致访问出错，可是我创建时用的application.CreateForm(AClass,AForm);它的owner应该是Application这个全局对象啊，怎么回出错呢，请高人指点，谢谢。

...全文