请教一下窗体间传递数据的问题!(70分)

  • 主题发起人 主题发起人 tianqin
  • 开始时间 开始时间
T

tianqin

Unregistered / Unconfirmed
GUEST, unregistred user!
各位高人好,小弟初学DELPHI不久,最近作一个项目,想实现如下功能,请各位赐教。
在一个主窗体中点击一个按钮,弹出一个产品名称选择窗体,选择了一项产品后,该窗体关闭,又弹出一个品牌选择窗体,选择一个品牌后,该窗体关闭,回到主窗体,窗体列表上已经有了一条刚才选择的记录。
另外,怎么在两个选择窗体中加上“上一步”,“下一步”功能呢?便于修改。
请各位高人赐教了!!!
 
设全局数组,把取出的值存进去,再在主窗体中调出来。
 

方法1 给你的选择窗体设置公用字段或者设置属性 在ShowModale前设置数值
方法2 覆盖选择窗体的构造方法 
方法3 发消息 在LParam中设置数值 但选择窗体要写相关的消息方法


在你的窗体Free之前 读取你设置的属性即可
 
各位能详细的说明一下吗?本人太菜。最好有个实例!
 
比如
var S1,S2:string;
with TFrmLogonNew2.Create(nil) do begin
try
ModuleID:='1';
ShowModal;
if IsPass then begin
S1:=...;
end else begin
exit;
end;
finally
OnTopForm:=False;
free;
end;
end;
OnTopForm:=True;
with TForm3.Create(nil) do begin
try
Font.Name := '宋体';
Font.Charset := GB2312_CHARSET;
Font.Size := 9;
ShowModal;
if IsPass then begin
S1:=...;
end else begin
exit;
end;
finally
OnTopForm:=False;
free;
end;
end;
 
后退
顶部