例如:
先创建两个窗口F2,F3
var f2:Tform2;
f3:Tform3;
begin
f2:=tform2.Create(self);
f2.Action;
f2.AutoSize:=false;
f3:=tform3.Create(self);
f3.Action;
f3.AutoSize:=false;
然后在F2中按确定,在F3中得到F2按确定传过来的信息,如想得到下面效果f3.label1.Caption:=f2.edit1.Text;
(sender as Tform3).label1.Caption:=f2.edit1.Text;
FORM3.LAbel.captiom:form2.edit1.text;上面的几种写法都不对,想请较各位高手,应该怎么写呢
先创建两个窗口F2,F3
var f2:Tform2;
f3:Tform3;
begin
f2:=tform2.Create(self);
f2.Action;
f2.AutoSize:=false;
f3:=tform3.Create(self);
f3.Action;
f3.AutoSize:=false;
然后在F2中按确定,在F3中得到F2按确定传过来的信息,如想得到下面效果f3.label1.Caption:=f2.edit1.Text;
(sender as Tform3).label1.Caption:=f2.edit1.Text;
FORM3.LAbel.captiom:form2.edit1.text;上面的几种写法都不对,想请较各位高手,应该怎么写呢
解决方案 »
- 散分专贴一
- printer对象font.size如何设置成小数,主要想打出宋体五号字???
- 怎么可以获得MSSQL的服务器时间????应该不要像ECHO 那个13端口那样吧?
- 你是做数据库的程序员吗?这个你不可不看!!!
- 《Delphi5开发人员指南》1087页的例子怎样用的?
- 如何根据类名创建类实例?
- 请问这是Delphi的问题吗?关于SQL语句的一个错误。
- ☆☆高分求助☆☆在程序中怎样调用另一个程序?又怎么样知道那个程序运行结束了??
- 采用TclientSocket/TserverSocket进行通信,能不能采用多线程,并且每个线程的socket端口不一样??
- 图形处理
- TWebBrowser控件的安全级别问题
- 新手关于stringgrid不会用?
在F2中加入
uses f3模块
f2:=tform2.Create(self);
f2.Action;
f2.AutoSize:=false;
f3:=tform3.Create(self);
f3.Action;
f3.AutoSize:=false;
tform2.showModal;
//然后执行点击,下面是点击事件
f3.label1.Caption:=f2.edit1.Text;
f3.show;
上面的方法不行啊,还有其它的吗????在PB中可以把事件封装然后引用,就可以解决了,DELPHI中应该怎么用呢,请教各位啊