吴 吴三桂 Unregistered / Unconfirmed GUEST, unregistred user! 2006-02-16 #3 同一个程序可以在全局定义的时候定义,最常用的是定义在 var Form1: TForm1; St: String; 然后在另一窗体单元中调用本单元 var Form2: TForm2; implementation uses Unit1; 就可以了 不同程序可以利用消息
同一个程序可以在全局定义的时候定义,最常用的是定义在 var Form1: TForm1; St: String; 然后在另一窗体单元中调用本单元 var Form2: TForm2; implementation uses Unit1; 就可以了 不同程序可以利用消息
B bbscom Unregistered / Unconfirmed GUEST, unregistred user! 2006-02-16 #4 uses Unit1; // 這是引入單元Form1 {$R *.dfm} procedure TForm2.Button1Click(Sender: TObject); begin Edit1.Text:=Form1.Edit1.Text; end; QQ:136293586
uses Unit1; // 這是引入單元Form1 {$R *.dfm} procedure TForm2.Button1Click(Sender: TObject); begin Edit1.Text:=Form1.Edit1.Text; end; QQ:136293586
J JohnSun2002 Unregistered / Unconfirmed GUEST, unregistred user! 2006-02-16 #6 在A窗体和B窗体间传递变量: 新建窗体C, 在A窗体中对C窗体的public变量赋值, 在B窗体中调用C窗体的相应变量即可, 这样,A use C, B 也 use C。