Form1 如何向Form2传递数据

最新推荐文章于 2022-05-12 09:53:26 发布

2021乐乐

最新推荐文章于 2022-05-12 09:53:26 发布

阅读量3.6k

点赞数 1

分类专栏： Delphi 文章标签：全局变量

本文链接：https://blog.csdn.net/weixin_42528089/article/details/84334420

版权

首先form1有一个全局变量或者函数是在public下
然后form2的uses下引用form的单元名
这个时候就可以了

1.设置框图

2.code

2.1 form1的代码：

unit Unit1;

interface

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

type
  TForm1 = class(TForm)
    RichEdit1: TRichEdit;
    BitBtn1: TBitBtn;
    Edit1: TEdit;
    procedure BitBtn1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }

  end;

var
  Form1: TForm1;
  ss:String;//全局变量
implementation

uses Unit2;//定义了Form2的单元

{$R *.dfm}

procedure TForm1.BitBtn1Click(Sender: TObject);
begin
    Form2.Show;
    ss:=RichEdit1