大家帮帮忙——一个很菜的问题。 在另外一个窗口中把要引用窗口uses进来。注意:变量必须是全局或Public类型的。 解决方案 » 免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货 在窗口的public中定义变量,然后在另一窗口中加入变量所在窗口的单元,就可引用,格式如: 窗口名.变量名 例如FORM1,FORM2,FORM2的public下定义 ss : string; //不能在private在FORM1中USES UNIT2; //UNIT2是FORM2的UNIT在任一事件中:form2.ss := 'abc';showmessage(form2.ss); public s:string; { Public declarations } end;uses unit2;{$R *.DFM}procedure TForm1.Button1Click(Sender: TObject);begin s:='asfasdfsaf'; form2.show;end;end.implementationuses unit1;{$R *.DFM}procedure TForm2.Button1Click(Sender: TObject);begin showmessage(form1.s);end;end. mdi窗口去除标题栏文字和系统图标 请教,如何选中MEMO中具体某行 如何遍历容器上的控件并获得控件名称? 关于query释放的问题 字符串'ABCD'用哪个函数可以转为'DCBA'? 在Delphi怎么将图片存入SQL Server 2000中 如何创建bat文件并向文件中写入字符串语句?waiting online!!!! 如何实现多串口通信 编写Active Form程序遇到莫明的问题 错误:Left side cannot be assigned to! 呼唤高手 TM-U300A 打印机问题 加急 我怎么创建目录?
窗口名.变量名
form2.ss := 'abc';
showmessage(form2.ss);
s:string;
{ Public declarations }
end;
uses unit2;{$R *.DFM}procedure TForm1.Button1Click(Sender: TObject);
begin
s:='asfasdfsaf';
form2.show;
end;end.
implementation
uses unit1;{$R *.DFM}procedure TForm2.Button1Click(Sender: TObject);
begin
showmessage(form1.s);
end;end.