2 a814123 a814123 于 2018.08.10 22:24 提问

delphi 主窗体里的常量传递?

我在主窗体里声明了一个常量。
const
vs = 2.0;

想在其他窗体里调用这个vs,请问怎么操作呢?

2个回答

hgameaaa
hgameaaa   2018.08.11 10:22
已采纳

图片说明
把常量放在INTERFACE下,其他单元USES UNIT1就可以了

caozhy
caozhy   Ds   Rxr 2018.08.10 23:03

定义成public的

var
f: MainForm;

f := TModalForm.Create(Application);
i = f.vs;
...

Csdn user default icon
上传中...
上传图片
插入图片
准确详细的回答,更有利于被提问者采纳,从而获得C币。复制、灌水、广告等回答会被删除,是时候展现真正的技术了!
其他相关推荐
delphi窗体之间的相互传值
效果图如下所示 Form1代码 //定义一个用户信息类 type   TUsersInfo=class     //声明三个全局变量     public        UserName: string;        UserPwd:string;        UserAge:Integer;   end; //引用form2 uses Unit2;
Delphi窗体间发送消息或字符串
在Delphi 开发中,常常应用到窗体消息传递,以达成某种操作要求,以下列举一个应用的例子,供大家参考。 自定义过程/函数方法://发送字符串到指字句柄的窗口中 (接收窗体需用发送时的消息常量WM_COPYDATA)procedure SendMessageData(AHandle: THandle; AStr: String);var sData: TCopyDataStru
Delphi窗体间发送消息或字符串
在Delphi 开发中,常常应用到窗体消息传递,以达成某种操作要求,以下列举一个应用的例子,供大家参考。 自定义过程/函数方法://发送字符串到指字句柄的窗口中 (接收窗体需用发送时的消息常量WM_COPYDATA)procedure SendMessageData(AHandle: THandle; AStr: String);var sData: TCopyDataStruct;begin
Delphi实现监视Windows窗口的创建销毁
要监视Windows窗口的各种事件,可以使用全局钩子,但是那样会降低系统性能,并难以保证稳定性。下面使用一个未公开的函数RegisterShellHook(Shell32.dll的181号导出函数)实现该功能。代码来自一个DLL项目,需要经过修改才能运行。以下是代码片段:Unit Test_Unit;InterfaceUses  Windows, Messa
移花接木,Delphi中主窗体的转移。
在Delphi中,创建一个工程,并添加一个窗体,这样就有两个窗体了。 Form1(Unit1.pas)和Form2(unit2.pas)。Form1是默认的主窗体。我们从工程文件中,将Form2的创建代码删除掉。我们打算动态创建Form2。 我们代码的目的,是要将Form1销毁掉,并创建Form2,并将Form2变为主窗体。Form2关闭,程序就退出。 在Form1上放置一个按钮
Delphi如何设置主窗体
   1、 Delphi如何设置主窗体?答:Delphi在默认情况下认为第一个建立的窗体就是主窗体,并且默认情况下是从主窗体开始启动,我们可以选择主菜单的“Prjoect / Options”(工程 / 选项)菜单,在弹出的对话框中点击“Forms”选项卡,在里面的“Main Form”项目中设置主窗体。
delphi登录窗口与主窗口的显示先后。
1、登录窗口form1,主窗口form2,在form1的create中加下if form2.showmodal <> mrok then Application.Terminate;2、在form1的确定按钮中加入         F_main.Show;        F_dl.Hide;...
Delphi实现非模态主窗口最小化子窗口不最小化
重载窗口CreateParams过程 TForm2= class(TForm) protected   procedure CreateParams(var Params: TCreateParams); override; end; procedure TForm2.CreateParams(var Params: TCreateParams); begin   inherit
关于父窗口与子窗口传值的Demo
本Demo案例为父窗口打开具有分页功能的子窗口并选择需要的值为id和id对应的值传给父窗口并以二维数组进行暂时存储,等选好之后,二维数组再把其中的元素以字符串形式分开存储在对应的input中。
Delphi窗体最小化
1. 把子窗体最小化到屏幕左下角 ShowWindow(Form1.Handle,SW_MINIMIZE); 或 windowstate:=wsMinimize; 2. 把整个程序最小化到任务栏 application.Minimize; 3. 最小化到托盘图标 使用控件,比如CoolTrayIcon