type
Txie = class(TRemoteDataModule, Ixie)
DataSetProvider1: TDataSetProvider;
procedure RemoteDataModuleCreate(Sender: TObject);
procedure RemoteDataModuleDestroy(Sender: TObject);
private
{ Private declarations
}
Form1:TForm1; //在这里声明比较好。
protected
class procedure UpdateRegistry(Register: Boolean; const ClassID, ProgID: string); override;
public
{ Public declarations }
end;
implementation
{$R *.DFM}
class procedure Txie.UpdateRegistry(Register: Boolean; const ClassID, ProgID: string);
begin
if Register then
begin
inherited UpdateRegistry(Register, ClassID, ProgID);
EnableSocketTransport(ClassID);
EnableWebTransport(ClassID);
end else
begin
DisableSocketTransport(ClassID);
DisableWebTransport(ClassID);
inherited UpdateRegistry(Register, ClassID, ProgID);
end;
end;
procedure Txie.RemoteDataModuleCreate(Sender: TObject);
begin
Form1:=TForm1.Create(self);
Form1.DataSource1.DataSet:=此模块上的一个数据集组件;
Form1.Show;
end;
procedure Txie.RemoteDataModuleDestroy(Sender: TObject);
begin
Form1.Release;
end;
type
Txie = class(TRemoteDataModule, Ixie)
DataSetProvider1: TDataSetProvider;
procedure RemoteDataModuleCreate(Sender: TObject);
procedure RemoteDataModuleDestroy(Sender: TObject);
private
{ Private declarations
}
protected
class procedure UpdateRegistry(Register: Boolean; const ClassID, ProgID: string); override;
public
{ Public declarations }
end;
var
Form1:TForm1;
implementation
uses unit1;
{$R *.DFM}
class procedure Txie.UpdateRegistry(Register: Boolean; const ClassID, ProgID: string);
begin
if Register then
begin
inherited UpdateRegistry(Register, ClassID, ProgID);
EnableSocketTransport(ClassID);
EnableWebTransport(ClassID);
end else
begin
DisableSocketTransport(ClassID);
DisableWebTransport(ClassID);
inherited UpdateRegistry(Register, ClassID, ProgID);
end;
end;
procedure Txie.RemoteDataModuleCreate(Sender: TObject);
begin
Form1:=TForm1.Create(self);
Form1.Show;
end;
procedure Txie.RemoteDataModuleDestroy(Sender: TObject);
begin
Form1.Release;
end;
不行啊,老大.
我照做,还是编译不出错.
var
AForm:TForm2; //Undeclared identifier:'TFomr2'
AForm:=TForm2.Create(Self); //Missing operator or semicolon
AForm.DataSource1.DataSet:=ADataSetComponent; //Missing operator or semicolon
AForm.Show; //Missing operator or semicolon