form之间全局变量传值问题 初次使用delphi麻烦各位大神了。。 解决方案 » 免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货 1. 不要交叉引用,即unit2中不要 uses unit12. 在Delphi菜单project-options中选择Forms, Auto-create forms只自动创建form13. 在unit2中设置public变量或属性,比如变量 public { Public declarations } FStr1: String; FStr2: String; end;4. procedure TForm1.sButton1Click(Sender: TObject);var frm: TForm2;begin frm := TForm2.Create(Self); frm.FStr1 := '.....'; frm.FStr2 := '-----'; frm.web.Navigate('.....'); frm.Show;end; 4. 窗体创建后要释放procedure TForm1.sButton1Click(Sender: TObject);var frm: TForm2;begin frm := TForm2.Create(Self); try frm.FStr1 := '.....'; frm.FStr2 := '-----'; frm.web.Navigate('.....'); frm.ShowModal; finally frm.Free; end;end; 可以自己建一个abc.pas文件,里面可以定义变量和函数,然后加入到你的项目里,谁要用的话,直接uses abc,就可以直接赋值调用了。 XML保存的问题:如何将修改过的文件(在Treeview里改的)保存到原来的XML里??? CSDN的问题 我在SQL里加了一个临时字段(0 as RetNum),然后将另一个表的数据写到这个字段,为什么出错? 用什么函数可以把一个数字格式化为小数点后两位 我老爸的腿摔坏了,郁闷! 无法控制ListView在vsIcon模式下被选中以外Item文字的字体。 如何上传文件?(请别见笑) 请问怎样用Delphi代码实现对数据库的备份和恢复?? 高分送! 串口收发信息,单机怎样测试? socket急呀!! 关于 Var 和 Result!! delphi编译程序不生成dcu文件
public
{ Public declarations }
FStr1: String;
FStr2: String;
end;4.
procedure TForm1.sButton1Click(Sender: TObject);
var
frm: TForm2;
begin
frm := TForm2.Create(Self);
frm.FStr1 := '.....';
frm.FStr2 := '-----';
frm.web.Navigate('.....');
frm.Show;
end;
procedure TForm1.sButton1Click(Sender: TObject);
var
frm: TForm2;
begin
frm := TForm2.Create(Self);
try
frm.FStr1 := '.....';
frm.FStr2 := '-----';
frm.web.Navigate('.....');
frm.ShowModal;
finally
frm.Free;
end;
end;