请问如何在一个窗口打开时,向它传递参数,又如何在一个窗口关闭时,返回一个参数!! 。谢了 解决方案 » 免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货 就是:onFormDestroy()/onFormCreate() 兄弟我初次使用Delphi,请明士onformcreate/onFormDestroy自身并没有带参数呀,我的意思是说,我在一个窗口中打开一个新窗口,并传递参数给它,或者关闭一个窗口,返回参数给打开他的窗口另,请问,有什么比较好的Delphi的入门的书。谢了。。 像这样:try form2:=Tform2.create(nil); form2.a:=1;//a 是form2的变量 form2.showmodal; c:=form2.b;//c是本单元变量,b是form2的变量finally form2.free;end; unit Unit2;interfaceuses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs;type TForm2 = class(TForm) private { Private declarations } public { Public declarations } function ShowModal(var param1:string): Integer;overload; end;var Form2: TForm2;implementation{$R *.dfm}function TForm2.ShowModal(var param1:string): Integer;begin result := inherited ShowModal(); param1 := 'test';end;调用:procedure TForm1.Button1Click(Sender: TObject);var s : string;begin s := ''; Form2 := TForm2.Create(Application); try Form2.ShowModal(s); finally Form2.Free; end; ShowMessage(s);end; delphi编程与pb编程不同,你可以定义一个公共变量单元(unit,记住是不带form的unit,例如unit_public)来定义所有的公共变量和公共结构,注意必须在public关键字后声明,然后在需要使用这些变量和结构的单元内加入应用:uses unit_public,这样载需要存储的时候赋值,需要引用的时候取值就可以了,这其实是对类属性的调用,可以视之为“公共变量”。 UniDac 4.6.12 Xe2 多表更新出现错误 用ADD增加字段时如何为数值型字段指定字段长度? 请问,如何发图片传到服务器上. 求解析xml读取接点的例子 谁有TDBGridEh这个控件,给小弟一份,高分求购,分不够可再加? 请问关于如何将query里的查询结果导为EXECL文件 老大们,帮帮忙!!sql问题,50分,解决就给! 菜鸟级问题,急~(在线) 谁能帮我解决这个问题,我马上给分 把一个指针赋值给一个结构,怎么做? 如何将WPS文件读取到Memo或RichEdit这两个组件中?? 关于DELPHI书的问题
try
form2:=Tform2.create(nil);
form2.a:=1;//a 是form2的变量
form2.showmodal;
c:=form2.b;//c是本单元变量,b是form2的变量
finally
form2.free;
end;
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs;type
TForm2 = class(TForm)
private
{ Private declarations }
public
{ Public declarations }
function ShowModal(var param1:string): Integer;overload;
end;var
Form2: TForm2;implementation{$R *.dfm}function TForm2.ShowModal(var param1:string): Integer;
begin
result := inherited ShowModal();
param1 := 'test';
end;
调用:
procedure TForm1.Button1Click(Sender: TObject);
var
s : string;
begin
s := '';
Form2 := TForm2.Create(Application);
try
Form2.ShowModal(s);
finally
Form2.Free;
end; ShowMessage(s);end;