编写dll,关于两个窗体之间如何共用数据的问题!! function GetGather(Owner: TComponent): TForm; stdcall; external dll.DLL; //电话调度 //客户端调用dll procedure TForm1.Button2Click(Sender: TObject); begin with GetGather(Self) do begin Show; end; end;
//================================dll内部 function GetGather(Owner: TComponent): Tfm_main; stdcall; // begin Result := Tfm_main.Create(Owner); end;
//===================================fm_main窗体中 procedure Tfm_main.SpeedButtonClick(Sender: TObject); begin //创建控制窗体 fm_layer_control:=Tfm_layer_control.Create(fm_layer_control); //显示控制窗体 fm_layer_control.Show; end; //=====================================窗体打开存在问题!!! procedure Tfm_layer_control.FormActivate(Sender: TObject); var i, lyrCount: integer; str:string; begin str:=fm_main.Button1.Caption;//无法调用主窗体的数据,如何进行调用,帮帮忙!!(我已经uses 两个窗体了) 我想用fm_layer_control窗体调用主窗体上的控件,并提取控件的数据,两个窗体之间如何访问? 总是显示:read:000000。。。地址...错误 end;
----------------------------------------------
活着的理由是:理想、追求、爱你的人、你爱的人。