关于函数执行和窗体的问题。

chinatc 2003-08-29 11:17:10
如果在某一个函数执行的过程中,需要弹出一个窗体,并且取得该窗体上的参数,例如在表单中填写了什么内容,或者选择了哪几个选项,应该怎么做?
...全文
59 4 打赏 收藏 转发到动态 举报
写回复
用AI写文章
4 条回复
切换为时间正序
请发表友善的回复…
发表回复
chinatc 2003-09-04
  • 打赏
  • 举报
回复
已经解决,感谢各位!
大地精灵 2003-09-01
  • 打赏
  • 举报
回复
function fun_show(i:intger):Boolean;
var
Myform:TFrmSetup;
begin
Myform := TFrmSetup.Create(nil);
if i= 1 then
Myform.edit1.text ='1'
else
Myform.edit1.text ='其余';
Myform.showmodal;
Myform.free;

end;
foreveryday007 2003-08-31
  • 打赏
  • 举报
回复
楼上方法OK
你也可以在你第二FORM里的PUBLIC下定义变量
xiaoxiaobai 2003-08-29
  • 打赏
  • 举报
回复
function fun():Boolean;
begin
with TFrmSetup.Create(nil) do
begin
if ShowModal=mrOK then
begin
self.Edit1.text := Edit1.text;
Result := True;
end else
Result := False;
end;
end;

5,379

社区成员

发帖
与我相关
我的任务
社区描述
Delphi 开发及应用
社区管理员
  • VCL组件开发及应用社区
加入社区
  • 近7日
  • 近30日
  • 至今
社区公告
暂无公告

试试用AI创作助手写篇文章吧