一个令人不解的问题。关于对FORM中元件的操作。 有没有一个什么类似全局变量的FORM的设置? 解决方案 » 免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货 你把Combox中的东西作为参数传过去不就得了。 在主程序中建一个相同的类(无实现部分),回调Dll的方法 不会吧,.....可以把这个LoadUserInf()写成你这个Form的一个方法,这样,就可以访问这个Form中的任何元件和方法啦。 >>也就是说如何在函数中操作另外一个函数中的建立的FORM?With Form1 dobegin ....end; 请问BaldZhang(BaldZhang) 这个方法该如何写呢? 函数中操作另外一个函数操作的对象 在函数中必须能访问到该对象的指针方法:定义全局变量<可为函数所用>;将全局变量指针链向该函数创建的对象ExampleVar AForm:TMyForm1 Function Somefunction:AForm; Function AFunctionUseAForm;somewhere...... AForm:=SomeFunction;......Function AFunctionUseAForm;Begin...... DoSomething AForm.DoSomething DoSomething......End; 大虾!你在第一个函数中已经把那个FORM FREE了! 不好意思!看错了!如果实在不行!可以找个中介!比如将 LoadUserInfo里的信息写入注册表!然后再从表里读出来放到COMBOX中!!这样就不用两个G函数互相访问了 将COMBOBOX的内容作为参数,传递一个参数给函数就可以了,我觉得这种方法最简单 TLoginForm = class(tfrom) procedure LoadUserInfo;end;TLoginForm.LoadUserInfo;beginend;function ShowLoginForm():integer;begin with TLoginForm.Create(nil) do try LoadUserInfo; ShowModal; finally Free; end;end; 定时锁机 在Delphi DBgrid 控件中编辑数据,保存到数据库相关操作 delphi控件问题(求助) 查询修改记录慢的问题。 请问如何通过函数取得某个日期格式的年份,月份?? 高价求购Delphi5开发人员指南? clientsocket 阻塞到底怎么接收和发送数据! 用何类型字段存取图象? mwy654321这人真垃圾! Delphi修改注册表代理服务器资料的问题?????? 多层系统socket连接,最多可以连接多少客户??[ 编译时,出现statement expected but 'procedure' found 是什么意思?
任何元件和方法啦。
With Form1 do
begin
....end;
定义全局变量<可为函数所用>;将全局变量指针链向该函数创建的对象
ExampleVar
AForm:TMyForm1
Function Somefunction:AForm;
Function AFunctionUseAForm;
somewhere
......
AForm:=SomeFunction;
......
Function AFunctionUseAForm;
Begin
......
DoSomething
AForm.DoSomething
DoSomething
......
End;
你在第一个函数中已经把那个FORM FREE了!
如果实在不行!可以找个中介!
比如将 LoadUserInfo里的信息写入注册表!然后再从表里读出来放到COMBOX中!!
这样就不用两个G函数互相访问了
end;TLoginForm.LoadUserInfo;
begin
end;function ShowLoginForm():integer;
begin
with TLoginForm.Create(nil) do
try
LoadUserInfo;
ShowModal;
finally
Free;
end;
end;