请问怎样在两个窗口间传递参数啊？

Question

请问怎样在两个窗口间传递参数啊？

Answer 1

可以这样试试：
　　在主窗口中定义变量并赋值，在另一窗体中包含主窗体，就可引用主窗体的变量了，注意：主窗体中声名变量时要在PUBLIC中定义

Answer 2

在主窗体中申明全局变量，其他单元引用unit1可直接调用

Answer 3

form1.editin.text:=form2.editout.text;
//把form2的editout的值传给form1的editin

Answer 4

user form?
   edit2.text:=form?.edit1.text
数据库什么的类!!!

Answer 5

USES form?
   edit?.text :=form?.edit?.text

Answer 6

我一般是先use 单元，再用变量的。
ychuiming(飞天) 那用什么方法？

Answer 7

其实最好定义在private区中，
然后在其他单元里引用的时候在变量前加上该窗体的名字就行了，

Answer 8

好简单啊！
Tform1:
public
   m_sPr:string;procedure showForm1(sPr:string);
begin
  form1:=tform1.create(application);
  form1.m_spr:=sPr;
  form1.showmodel;
  form1.free;
end;

Answer 9

type 
  test=record
   ....
  end;procedure Tform2.Doform2(var t:test);
begin
   with t do
   begin
     ...
   end;
  if showmodal=mrok then
  with t do
  begin
    ...
  end;
end;  //in form1
  var t:test;
  with t do
  begin
    ...
  end;  
  with Tform2.create(self) do
  begin
     Doform2(t) 
     free;
  end;
  with t do
  begin
    ...
  end;

Answer 10

晕～～
在你的
var form1 下面。
var 你的变量