Question

如何进行delphi变量的窗体间传送

如何进行delphi变量的窗体间传送？

谢谢！！

Answer 1

设置成全局变量
unit Unit1;

interface

uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs;

type
TForm1 = class(TForm)
procedure FormCreate(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;

var
Form1: TForm1;
在这里设

Answer 2

另一个方法.
unit1中引用unit2的edit1中的文本

unit1中加入 uses unit2

在代码中就可以
procedure TForm1.Button1Click(Sender: TObject);
begin
showmessage(Form2.edit1.text);
end;

Answer 3

直接赋值呗