两个Unit单元可以共用同一个form窗体吗？(50分)

  • 主题发起人 主题发起人 Liyue
  • 开始时间 开始时间
L

Liyue

Unregistered / Unconfirmed
GUEST, unregistred user!
两个Unit单元可以共用同一个form窗体吗？
例如：Form窗体上有个edit1。我希望在unit1单元中
包含"edit1.text:='good'。
在unite2单元中包含"edit1.text:='bad' 。
怎样实现？请给个例程。谢谢！！！
 
你的表达有问题！
在unite2中 uses unit1;则可以Form1.edit1.text:='bad' ;
不知道你是不是这个意思？
 
to wjiachun
仅仅加上 uses unit1 不能运行。
我的问题是：
在一个form窗体form1 和与其配套的unit主程
序unit1 之外,再新建一个unit程序unit2,希望
在unit2 中对form1 进行操作（例如，在unit2中
加上“form1.edit1.text:='nnnnnnn' ”）
怎样实现？
谢谢！！
 
在UNIT2的USES子句中加入UNIT1就行了。
 
以下程序有错误，请更正，谢谢！！！本来是个很简单的问题。
unit Unit1;
interface
uses
unit2,Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
StdCtrls;
type
TForm1 = class(TForm)
Button1: TButton;
Edit1: TEdit;
procedure Button1Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form1: TForm1;
implementation
{$R *.DFM}
procedure TForm1.Button1Click(Sender: TObject);
begin
unit2.qqq;
end;
end.
------------------------------
unit Unit2;
interface
implementation
procedure qqq;
begin
form1.edit1.text:='ppp';//此句出错，找不到form1 。
end;
end.

 
两个Unit单元可以对同一个form窗体进行操作吗？
例如：Form窗体上有个edit1。我希望在主单元unit1中
包含"unit2.myfrind" 语句。
在unite2单元中包含
"procedure myfrind
form1.edit1.text:='大龙' "语句。
怎样实现？请给个例程。谢谢！！！
如果在 unit1 的 uses 中加上unit2,则出错提
示：unit2中的form1无定义。
如果在 unit2的 uses 中加上 unit1,则出错提
示：unit1 中的unit2无定义 。
如果在 unit1 的uses 中加上 unit2,
在 unit2 的uses 中加上unit1,则出错提
示：相互调用。
当两个人共同编写一个程序时，会遇到类似的问
题。这时每个人写一个独立的unit程序，unit之间可以
相互调用。
大虾们是怎样实现的？急，谢谢！！


 
两个Unit单元可以对同一个form窗体进行操作吗？
例如：Form窗体上有个edit1。我希望在主单元unit1中
包含"unit2.myfrind" 语句。
在unite2单元中包含
"procedure myfrind
form1.edit1.text:='大龙' "语句。
怎样实现？请给个例程。谢谢！！！
如果在 unit1 的 uses 中加上unit2,则出错提
示：unit2中的form1无定义。
如果在 unit2的 uses 中加上 unit1,则出错提
示：unit1 中的unit2无定义 。
如果在 unit1 的uses 中加上 unit2,
在 unit2 的uses 中加上unit1,则出错提
示：相互调用。
当两个人合作共同编写一个程序时，会遇到类似的问
题。这时每个人写一个独立的unit程序，unit之间可以
相互调用。
大虾们是怎样实现的？急，谢谢！！


 
两个Unit单元可以对同一个form窗体进行操作吗？
例如：Form窗体上有个edit1。我希望在主单元unit1中
包含"unit2.myfrind" 语句。
在unite2单元中包含
"procedure myfrind
form1.edit1.text:='大龙' "语句。
怎样实现？请给个例程。谢谢！！！
如果在 unit1 的 uses 中加上unit2,则出错提
示：unit2中的form1无定义。
如果在 unit2的 uses 中加上 unit1,则出错提
示：unit1 中的unit2无定义 。
如果在 unit1 的uses 中加上 unit2,
在 unit2 的uses 中加上unit1,则出错提
示：相互调用。
当两个人合作共同编写一个程序时，会遇到类似的问
题。这时每个人写一个独立的unit程序，unit之间可以
相互调用。
大虾们是怎样实现两个人合作编写一个程序的？
怎样吧一个程序分成两部分？急，谢谢！！
给点提示性回答也可以。


 
try add 'unit1' in unit2,but not in 'uses' ,you should add in 'interface'
example:
unit Unit2;
interface
uses //add this and try
unit1;

implementation
end.

 
两个Unit单元可以对同一个form窗体进行操作吗？
例如：Form窗体上有个edit1。我希望在主单元unit1中
包含"unit2.myfrind" 语句。
在unite2单元中包含
"procedure myfrind
form1.edit1.text:='大龙' "语句。
怎样实现？请给个例程。谢谢！！！
如果在 unit1 的 uses 中加上unit2,则出错提
示：unit2中的form1无定义。
如果在 unit2的 uses 中加上 unit1,则出错提
示：unit1 中的unit2无定义 。
如果在 unit1 的uses 中加上 unit2,
在 unit2 的uses 中加上unit1,则出错提
示：相互调用。
当两个人合作共同编写一个程序时，会遇到类似的问
题。这时每个人写一个独立的unit程序，unit之间可以
相互调用。
大虾们是怎样实现两个人合作编写一个程序的？
怎样吧一个程序分成两部分？急，谢谢！！
给点提示性回答也可以。


 
try add 'unit1' in unit2,but not in 'uses' ,you should add in 'interface'
example:
unit Unit2;
interface
uses //add this and try
unit1;

implementation
end.

 
try add 'unit1' in unit2,but not in 'uses' ,you should add in 'interface'
example:
unit Unit2;
interface
uses //add this and try
unit1;

implementation
end.

 
两个Unit单元可以对同一个form窗体进行操作吗？
例如：Form窗体上有个edit1。我希望在主单元unit1中
包含"unit2.myfrind" 语句。
在unite2单元中包含
"procedure myfrind
form1.edit1.text:='大龙' "语句。
怎样实现？请给个例程。谢谢！！！
如果在 unit1 的 uses 中加上unit2,则出错提
示：unit2中的form1无定义。
如果在 unit2的 uses 中加上 unit1,则出错提
示：unit1 中的unit2无定义 。
如果在 unit1 的uses 中加上 unit2,
在 unit2 的uses 中加上unit1,则出错提
示：相互调用。
当两个人合作共同编写一个程序时，会遇到类似的问
题。这时每个人写一个独立的unit程序，unit之间可以
相互调用。
大虾们怎样实现两个人合作编写一个程序？
怎样吧一个程序分成两部分分别编写？急，谢谢！！
给点提示性回答也可以。


 
我K!你们两个干嘛？重复发了多次还是一样的？？
 
大富豪速度太慢，多按了几次按钮，抱歉！！！
 
me too
sorry
 
unit Unit1;
interface
uses
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
StdCtrls;
type
TForm1 = class(TForm)
Button1: TButton;
Edit1: TEdit;
procedure Button1Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form1: TForm1;
implementation
uses unit2;
//在此处加入Unit2就行了
{$R *.DFM}
 
谢谢wind2000!!!
按照wind2000的方法可以搞定。
 
您必须登录或注册才可回复。

Similar threads

N
二个窗体的基本相同，所以把通用的过程放入单独的单元，但该单元的过程要用到窗体的控件怎么写？？(50分)
回复
7
查看
148
rongyujohny
R
T
在一个登陆窗口中输入用户名和密码，单击确定后，想让一个MDI主窗口显示出来时出现以下错误信息，cannot create form. no mdi forms
回复
14
查看
214
hanpengshan_00
H
D
怎样使一个单元没有窗体，就像delphi里的windows单元那样(5分)
回复
4
查看
119
dontal
D
J
（急）请问对几个不同的窗体任意创建一个，可不可以新将创建的窗体赋给一个公共变量，通过...(200分)
回复
10
查看
354
einstrain
E
C
没有窗体的单元中,如何使用ADOQuery控件?使得其他窗体调用(100分)
回复
15
查看
171
cowbird
C
后退
顶部