如何将参数从form1传递到form2?

Question

不用传递吧？你只要在FORM2的UNIT2里USES UNIT1就可以了。

Answer 1

不用这么麻烦，只需要在Form2中Uses Form1的单元文件就行了吧。

Answer 2

如果在不同的工程里怎么办，两个form没一点关系？
如果在同一个工程里并列关系怎么办？

Answer 3

Str:= Form1.Edit1.Text;//Str是Form2中的变量没有一点关系可以通过中间变量来传递，这不就建立关系了吗。

Answer 4

Unit Unit1
interface
uses
  ...,Unit2;
...
...
end;Unit Unit2
....
implementation
uses
 Unit1;//只有当一定要用特刊环引用，而且借助弟三个Unit不可用时，再用它
...
end.

Answer 5

访问类中的public成员就谢了。

Answer 6

用Edit控件的copytoclipboard和pastfromclipboard可以吗？

Answer 7

呵呵，看我的
const
wmmm=WM_USER+771;
procedure tform1.aa;
var
  a:^string;
begin
  new(a);
  a^:=edit1.text;
  postmessage(form2.handle,wmmm,integer(a),0);
end;procedure bb(var Msg:TMessage);message Wmmm;
var
  s:string;
  p:^string;
begin
  p:=Pointer(msg.Wparam);
  s:=p^;
  showmessage(s);
  dispose(p);
end;