窗体1中的变量如何传递给窗体2。比如FORM1中的一个INT A传递到FORM2中的INT B?

asion 2003-10-17 04:50:02
窗体1中的变量如何传递给窗体2。比如FORM1中的一个INT A传递到FORM2中的INT B?
...全文
65 8 打赏 收藏 转发到动态 举报
写回复
用AI写文章
8 条回复
切换为时间正序
请发表友善的回复…
发表回复
lydvqq 2003-11-03
  • 打赏
  • 举报
回复
unit Unit1;

interface

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

type
TForm1 = class(TForm)
Edit1: TEdit;
Button1: TButton;
procedure Button1Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;

var
Form1: TForm1;

implementation
uses unit2;
{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);

begin
form2.ShowModal;
edit1.Text :=form2.ss;
end;

end.


unit Unit2;

interface

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

type
TForm2 = class(TForm)
Edit1: TEdit;
Button1: TButton;
procedure Button1Click(Sender: TObject);
private
s:string;
{ Private declarations }
public
property ss : string read s write s;
{ Public declarations }
end;

var
Form2: TForm2;

implementation
uses unit1;
{$R *.dfm}

procedure TForm2.Button1Click(Sender: TObject);
begin

s:=edit1.Text;
self.Close;
end;

end.

EastBuBai 2003-10-20
  • 打赏
  • 举报
回复
在form2中uses unit1 即可
gold_future 2003-10-20
  • 打赏
  • 举报
回复
1。定义一个全局变量;
2。在form1中定义一个 public 的数据成员 A:integer;
在form2中这样引用 form1.A
hkbarton 2003-10-20
  • 打赏
  • 举报
回复
晕~~~直接定义个全局变量,或uses unit1不就以了吗
cash2000 2003-10-20
  • 打赏
  • 举报
回复
发消息过去。用findwindows找到窗口句柄,然后就可以发消息过去。
asion 2003-10-20
  • 打赏
  • 举报
回复
能再具体一些吗?谢谢
FSU 2003-10-17
  • 打赏
  • 举报
回复
uese unit1;
begin
b :=Form1.a;
end;
gdwyh 2003-10-17
  • 打赏
  • 举报
回复
在窗体2中uses 窗体1的unit名

5,379

社区成员

发帖
与我相关
我的任务
社区描述
Delphi 开发及应用
社区管理员
  • VCL组件开发及应用社区
加入社区
  • 近7日
  • 近30日
  • 至今
社区公告
暂无公告

试试用AI创作助手写篇文章吧