如何在一个Unit中引用另一个Unit中的变量(同一个工程)?能否为一个工程中的函数统一存放在一个Unit中? 如何在一个Unit中引用另一个Unit中的变量(同一个工程)?能否为一个工程中的函数统一存放在一个Unit中?如何调用?Thanks a lot? 解决方案 » 免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货 在要用变量的单元引用包含变量的单元。如: uses unit2你可以将所有函数放在一个单元中,以后要用该函数时只需在声明处引用该单元即可。 类似的例子,,原理一样: 在DELPHI的程序开发中,用户登陆窗口的用处非常的大,下面就简单介绍一下这类效果的实现。 首先new一个新的工程,然后再新建一个是form,进入project菜单,单击其中的option菜单后进入,使form2成为不自动创建(方法为:在auto-create forms中选中form2,然后双击即可,单击ok按钮)。 此程序的原理是通过在密码窗体(运行时首先显示此窗体)输入的密码文本是否和主窗体中的edit中的文本一样,如果一样就进入程序,否则退出程序。本文也是在两窗体中传递参数的实例。 在form1,form2中各加一个eidt控件,然后在form2中加入一个button控件。 程序源码如下:工程文件:program Project1;usesForms,Unit1 in 'Unit1.pas' {Form1},Unit2 in 'Unit2.pas' {Form2};{$R *.RES}beginApplication.Initialize;Application.CreateForm(TForm1, Form1);form2:=tform2.create(application);form2.showmodal;if (text1<>form1.edit1.text) thenbeginapplication.Terminate;end;Application.Run;end.单元1文件unit Unit1;interfaceusesWindows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,StdCtrls;typeTForm1 = class(TForm)Edit1: TEdit;private{ Private declarations }public{ Public declarations }end;varForm1: TForm1;implementation{$R *.DFM}end.单元2文件unit Unit2;interfaceusesWindows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,StdCtrls;typeTForm2 = class(TForm)Edit1: TEdit;Button1: TButton;procedure Button1Click(Sender: TObject);private{ Private declarations }public{ Public declarations }end;varForm2: TForm2;text1:string;implementation{$R *.DFM}procedure TForm2.Button1Click(Sender: TObject);begintext1:=form2.edit1.text;form2.close;end;end. 在dbgrid中第一列怎么加个 复选框功能? 关于ListView在Visual模式下,删除数据速度慢的问题。 求助~~~~~~~~ 关于MSCOMM的问题 菜鸟关于rave report5.0报表的简单问题,请高手进去拿分,同时,感谢!!!! 请提供图形按钮控件下载地址?要求可以做成圆形,椭圆并且能加图形的按钮控件 在用quickReport做报表时,怎样可以让动态创建的band中的QRlabel显示出来(详情如内)? 如何设计这种类型的自旋锁? 学delphi,我很迷茫。 简单问题!如何做成那种向导的样式?谢谢! treeview 请教一个在dbgrid控件里修改数据的问题
如: uses unit2
你可以将所有函数放在一个单元中,以后要用该函数时只需在声明处引用该单元即可。
原理一样:
在DELPHI的程序开发中,用户登陆窗口的用处非常的大,下面就简单介绍一下这类效果的实现。
首先new一个新的工程,然后再新建一个是form,进入project菜单,单击其中的option菜单后进入,使form2成为不自动创建(方法为:在auto-create forms中选中form2,然后双击即可,单击ok按钮)。
此程序的原理是通过在密码窗体(运行时首先显示此窗体)输入的密码文本是否和主窗体中的edit中的文本一样,如果一样就进入程序,否则退出程序。本文也是在两窗体中传递参数的实例。
在form1,form2中各加一个eidt控件,然后在form2中加入一个button控件。
程序源码如下:
工程文件:
program Project1;uses
Forms,
Unit1 in 'Unit1.pas' {Form1},
Unit2 in 'Unit2.pas' {Form2};{$R *.RES}begin
Application.Initialize;
Application.CreateForm(TForm1, Form1);
form2:=tform2.create(application);
form2.showmodal;
if (text1<>form1.edit1.text) then
begin
application.Terminate;
end;
Application.Run;
end.单元1文件
unit Unit1;interfaceuses
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
StdCtrls;type
TForm1 = class(TForm)
Edit1: TEdit;
private
{ Private declarations }
public
{ Public declarations }
end;var
Form1: TForm1;implementation{$R *.DFM}end.
单元2文件
unit Unit2;interfaceuses
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
StdCtrls;type
TForm2 = class(TForm)
Edit1: TEdit;
Button1: TButton;
procedure Button1Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;var
Form2: TForm2;
text1:string;
implementation{$R *.DFM}procedure TForm2.Button1Click(Sender: TObject);
begin
text1:=form2.edit1.text;
form2.close;
end;end.