delphi中form1中的一个edit后面有个按钮,点击按钮弹出窗口form2,在弹出窗口form2中,根据选择条件查询出来的结果选中一条记录,点击确定按钮,使选中的值显示在form1中的那个edit框中,请问在form1的那个button事件中怎么写才能调用到form2中的确定按钮事件,请大家帮帮,急急急。。谢谢
解决方案 »
- 安装控件ExpressQuantumGrid Suit For Delphi6的问题
- 如何再Delphi7中的Rave Reports5.0报表工具中操作多个数据集
- 简单小问题!为什么我的服务器用了几天就要重新启动,否则客户端是无法连接的阿
- 请教有关TdxdbTreeview的一个问题,请有用过的人指点
- ztv 控件 大文件压缩问题, 用过的进~
- 200分求助,不够再加:如何把命令行程序(如 Masm 5.0)输出的结果,导入到Windows标准窗口中显示???
- 奇怪的Corba问题,在Corba中用过ADO的朋友一定要来看看(在线等待)
- 怎么知道是否按下了某些按键?或者是鼠标事件并执行相应的动作。
- 怎么treeview.topitem有时不是树的顶结点的
- 各位大侠,那里有中文的delphi5的帮助下载,谢谢!
- 帮我解决此问题者 酬谢50元京券(京东商场全场通用)!
- 保存时灵异了,大伙帮我看看
var
form2: TForm2;
begin
form2 := TForm2.create(nil);
try
if form2.showmodal = mrok then
edt1.text := form2.xxx; //使用属性或方法
finally
form2.free;
end;
end;
type TFOnMessagBack = procedure(psMessage: string) of object;
在form2的类中申明一个私有成员:
private:
FOnMessagBack: TFOnMessagBack;
声明一个公共成员:
public:
property OnMessagBack: FOnMessagBack read FOnMessagBack write FOnMessagBack;
然后在form1中创建完form2后,给form2的OnMessagBack属性赋值:OnMessagBack = FOperateMessag;这个FOperateMessag是你在form1中定义的处理form2中传回来的消息的函数,它的定义必须和form2中的TFOnMessagBack一样,即:procedure FOperateMessag(psMessage: string);至于实现就你自己写了,按你的意思就是把psMessage赋值给button的caption。接下来,在form2的按钮点击事件中调用FOnMessagBack,如下:
if assigned(FOnMessagBack) then
FOnMessagBack('我要回传的字符串');
这样,form1中的FOperateMessag就能被触发,接到form2中按钮点击后传回来的字符串了。
上面的代码都是在这里敲的,可能会有个别错误的,请楼主自己核实下!希望能报道LZ!