蛇口影剧院电影排期:如何进行delphi变量的窗体间传送

来源:百度文库 编辑:中科新闻网 时间:2024/05/07 13:16:31
如何进行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;

直接赋值呗