把他们申明到你的FORM类的PUBLIC里
解决方案 »
- COM+开发中面向对象容器设计问题
- 怎么写这些语句赋值给 adocommandtext
- 如何获得不同操作系统下IE缓存目录?
- 求制作甘特图的控件或源码
- 编写DLL文件的时候,函数的定义是不是在begin...end.之间啊?那exports语句放在哪里呢?
- 主程序通过按钮调用另一个EXE文件,当EXE文件已经打开时继续点不会再弹出EXE文件,程序该如何写啊
- DWORD是什么类型? 原谅,小弟穷鬼一个
- dll中的子窗口动态调用后如何释放
- 關於伟大的delphi的问题各位一定要给面子啊
- DELPHI6怎么安装BDE组件?
- 如何将byte类型的值用二进制方式以及已知字符显示其ASCII值?
- 如何实现窗体的切换过程的过渡效果
你可如下定义:
interfacevar
i,j : integer;
只要uses该单元的地方都可用该变量。
1.单元:
unit Unit1;interfaceuses
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
StdCtrls;type
TForm1 = class(TForm)
Button1: TButton;
Button2: TButton;
procedure Button1Click(Sender: TObject);
procedure Button2Click(Sender: TObject);
private
{ Private declarations }
public mytest:string;//*****就这个
{ Public declarations }
end;var
Form1: TForm1;
implementationuses Unit2;{$R *.DFM}procedure TForm1.Button1Click(Sender: TObject);
begin
mytest:='hello';
showmessage(mytest)end;procedure TForm1.Button2Click(Sender: TObject);
begin
form2.Show;
end;end.2.单元:
unit Unit2;interfaceuses
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
StdCtrls;type
TForm2 = class(TForm)
Button1: TButton;
procedure Button1Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;var
Form2: TForm2;implementationuses Unit1;{$R *.DFM}procedure TForm2.Button1Click(Sender: TObject);
begin
showmessage(Form1.mytest);
end;end.