郎行和浩纳哪个好:如何进行delphi变量的窗体间传送

来源:百度文库 编辑:杭州交通信息网 时间:2024/04/29 01:10:52
如何进行delphi变量的窗体间传送?

谢谢!!

设置成全局变量
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;
在这里设

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

unit1中加入 uses unit2

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

直接赋值呗