向大家请教,在delphi中,比如说一个工程建立了两个窗体(就应该有相应的两段原程序),在form1窗体中定义的变量a,能不能在form2窗体中直接通过Tform1.a的这种形式引用,如果不行,能不能通过其他的方法,直接引用其他窗体的变量?????????????????????????
解决方案 »
- 让我沉吧~~~
- 涉外企业所得税申报系统中类似EXcel是用什么控件做的啊。DBGrid能实现吗
- ++ 号在SQL语句里怎么转义?
- 求回溯算法?
- directdraw7 for delphi7
- 怎样对fsMDIChild窗口进行操作呀!
- 我想把G:/a.mp3分割成G:/a1.mp3和G:a2.mp3,其中a1.mp3和a2.mp3将a.mp3的前半段和后版段,如何编程?
- 为什么这里的Timage.fillrect不起作用? 画图区域并没有增大?
- 如何制作可自动生成label并可拖动程序
- 求救!带有dhtmledit控件的执行程序无法在ie4下运行,如何发布?
- 请大家给推荐个控件,能实现想WORD那样的功能
- QuickReport组件预览、打印数据不完整,只能打前几页数据,后面的数据似乎丢了
with TForm1.Create(Application) do
begin
a:= xxx;
end;
要在引用的窗体的Uses 语句加上form1的单元。
type
TForm1 = class(TForm) public
a:string;
end;
在TForm2中就可以访问
Form1.a;
unit Unit1;interfaceuses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls;type
TForm1 = class(TForm)
Button1: TButton;
procedure Button1Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
a:integer;
end;var
Form1: TForm1;
implementationuses Unit2;{$R *.dfm}procedure TForm1.Button1Click(Sender: TObject);
begin
a:=50000;
form2.show;
end;end.
unit Unit2;interfaceuses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, WinSkinData, StdCtrls;type
TForm2 = class(TForm)
SkinData1: TSkinData;
Edit1: TEdit;
procedure FormCreate(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;var
Form2: TForm2;implementation
uses
unit1;{$R *.dfm}procedure TForm2.FormCreate(Sender: TObject);
begin
edit1.Text:=inttostr(form1.a);
end;end.我运行起来后发现为什么在form2窗体中的edit1中的数字始终显示的是0 呢,请大家帮我分析分析(我估计我自己又是犯了什么概念性的错误)
begin
edit1.Text:=inttostr(form1.a);
end;但是这回是什么都不显示,edit1.text是空的,大家帮忙分析一下是怎么回事???