在delphi的一个窗体中能引用另外一个窗体中的变量吗?如何实现?谢谢
5个回答
展开全部
能的!如在LoginForm即登陆窗体中定义全局变量,在代码中public定义,如下所示:
public
{ Public declarations }
uname,upassword:string; //定义全局变量
end;
登陆窗体中用户输入:
procedure TLoginForm.FormCreate(Sender: TObject);
begin
uname := ComboBox1.text;//用户名
pass := Edit1.Text; //密码
end;
在MainForm的状态栏显示登陆的用户名:(其中加Timer和tatusBar控件)
procedure TBalanceForm.Timer1Timer(Sender: TObject);
begin
StatusBar1.Panels[1].Text := '当前用户:'+LoginForm.uname; //调用LoginForm的uname变量
end;
public
{ Public declarations }
uname,upassword:string; //定义全局变量
end;
登陆窗体中用户输入:
procedure TLoginForm.FormCreate(Sender: TObject);
begin
uname := ComboBox1.text;//用户名
pass := Edit1.Text; //密码
end;
在MainForm的状态栏显示登陆的用户名:(其中加Timer和tatusBar控件)
procedure TBalanceForm.Timer1Timer(Sender: TObject);
begin
StatusBar1.Panels[1].Text := '当前用户:'+LoginForm.uname; //调用LoginForm的uname变量
end;
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
展开全部
把你要引用的变量设为全局变量,现引用全局变量所在的那个单元格就行了
1、在窗口1的单元接口部分的uses一词后加上Unit2;
2、在implementation下面加上语句uses Unit2;
3、在File-->Use Unit...中点选Unit2,OK;它的作用和第2种方法效果一样。
4、最快捷的alt+f11 ,
再写代码就行了:
eg:
Edit1.Text:=From2.Label1.Caption;
1、在窗口1的单元接口部分的uses一词后加上Unit2;
2、在implementation下面加上语句uses Unit2;
3、在File-->Use Unit...中点选Unit2,OK;它的作用和第2种方法效果一样。
4、最快捷的alt+f11 ,
再写代码就行了:
eg:
Edit1.Text:=From2.Label1.Caption;
本回答被提问者采纳
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
展开全部
如果是 窗体类中的变量,只能在public,或者published里面的property字段的也可以.
如果是 窗体的pas的全局变量,直接引用就可以了.
最关键的是你要在你的单元里面 uses 这个窗体的pas文件.
如果是 窗体的pas的全局变量,直接引用就可以了.
最关键的是你要在你的单元里面 uses 这个窗体的pas文件.
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
展开全部
在var下定义后,在要使用的单元中uses该单元.
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
推荐律师服务:
若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询