我在主窗体(主窗体为form1,子窗体为form2,在子窗体上我放了一个label1,定义一个全局变量var i integer;i:=0;)上放一个按钮BUTTON1 在BUTTON1的单击事件里我写的代码如下:
i=i+1;
form2.label1.caption=inttostr(i);
form2.show;我连点BUTTON1 5次会打开5个同级的form2窗体,每个form2上的label1会显示不同的内容:1、2、3、4、5,而5个同级的form2窗体当前只有一个处于激活状态,怎样获得5个同级的form2窗体当前处于激活状态的窗体的label1的内容呢?
i=i+1;
form2.label1.caption=inttostr(i);
form2.show;我连点BUTTON1 5次会打开5个同级的form2窗体,每个form2上的label1会显示不同的内容:1、2、3、4、5,而5个同级的form2窗体当前只有一个处于激活状态,怎样获得5个同级的form2窗体当前处于激活状态的窗体的label1的内容呢?
解决方案 »
- 求教-winsocket文件传输问题
- =====线程问题!!急,在线等!!!=============
- DELPHI怎样接收来自利用WINSOCK API编写的应用程序发送过来的消息?
- 倾囊而尽,我哭了。请问关于ttable中记录查询的问题,在线等待。
- 请问如何将网页存为MHT单一格式的文件(最好用WebBrowser),先谢了
- 一个简单的问题!
- 用DELPHI怎样自动删除程序?
- delphi记录删除
- 如何将表格转为Excel时,表格标头也带过去?
- 如何查询一个指定文件夹下是否存在exe文件?
- FastReport分栏小问题:系统分栏是记录从左往右排列,如何整成从上到下排列?
- 我弄了个wise6.0,如何把打包的程序弄成中文啊
能否说的清楚一点?
j:integer;
begin
for j:=0 to Application.ComponentCount -1 do
if Application.Components[j] is TForm2 then
if (Application.Components[j] as TForm2).active then
result:=
(Application.Components[j] as TForm2).Label1.Caption;