社区
Delphi
帖子详情
最白吃的问题!!!在线等!!急!!@ var Form1: TForm1;这个定义去掉有事吗???
hyjwrok
2004-04-20 05:28:52
在线等!!急!!@ var Form1: TForm1;这个定义去掉有事吗???
它有什么作用呢??
...全文
17
15
打赏
收藏
最白吃的问题!!!在线等!!急!!@ var Form1: TForm1;这个定义去掉有事吗???
在线等!!急!!@ var Form1: TForm1;这个定义去掉有事吗??? 它有什么作用呢??
复制链接
扫一扫
分享
转发到动态
举报
写回复
配置赞助广告
用AI写文章
15 条
回复
切换为时间正序
请发表友善的回复…
发表回复
打赏红包
chenziqing030
2004-04-21
打赏
举报
回复
假设我有个TForm1,如果我把窗体的自动创建去掉。
然后用以下代码调用窗体:
with TForm1.create(nil) do
try
showmodal;
finally
free;
end;
那在TForm1单元中的var Form1:TForm1应该就可以去掉了吧?
kaershaw
2004-04-20
打赏
举报
回复
:)
52pushu
2004-04-20
打赏
举报
回复
高手如云……
南京自由人
2004-04-20
打赏
举报
回复
有意思,明确的说,不能去掉,delphi就是这样定义和书写的。至于它的作用定义form1是TForm1类的一个实例。
maer56
2004-04-20
打赏
举报
回复
不行的啊,因为这就是你窗体所使用的名字,在调用窗体时,它会找这个窗体的名字。简单来讲它就是个标识,让别人能够找到你。
正如 edit1.name 一样。
你去掉的话,调试时就报错,因为找不到这个窗体。
这个窗体有个窗体定义文件,里面包含了在窗体中的控件的大小,位置等信息,还有就是窗体大小,显示位置等等信息。
所以不能过删除。
RamjetZhang
2004-04-20
打赏
举报
回复
从美学的角度上讲,建议移到dpr文件中(begin前面);
一个unit里的全局变量(还是在interface段)太难看。
SydPink
2004-04-20
打赏
举报
回复
是IDE给你+上的变量。。。。。。。。。没它你怎么创建窗体实例啊???
aiirii
2004-04-20
打赏
举报
回复
樓上已經回答了
Application.CreateForm(TForm1, Form1);
去掉, 上面這句就執行不了
hyjwrok
2004-04-20
打赏
举报
回复
可以呀!!
不知是怎 么回事
web700
2004-04-20
打赏
举报
回复
有意思..
ybuck
2004-04-20
打赏
举报
回复
呵呵~~怎么想起来问这个问题了?去掉当然不行。
看看他就知道怎么回事儿了
program Project1;
uses
Forms,
Unit1 in 'Unit1.pas' {Form1};
{$R *.res}
begin
Application.Initialize;
Application.CreateForm(TForm1, Form1);
Application.Run;
end.
nhdj
2004-04-20
打赏
举报
回复
delphi创建窗体后默认创建一个本窗体类,上面的语句就是创建一个窗体实例
亲密数
2004-04-20
打赏
举报
回复
delphi你创建一个窗口,它就默认帮你建起一个全局变量。也可以去掉,但显示窗口时,就要自己创建了。可以看一下工程文件单元的代码(CreateForm)。
neowang
2004-04-20
打赏
举报
回复
你去掉看看按F9能不能运行就知道了.
Form1就是你的应用程序运行时的窗体实例.
hyjwrok
2004-04-20
打赏
举报
回复
up
电子日记本的 NEO 窗口改进版
电子日记本的 NEO 窗口制作得非常漂亮,网上流传一些制作方法,在研究之后,
发觉使用 TImage 拼凑,以及 Unit 单元中“一大段”代码对于我这个对源码要求
干净整洁的人来说,总觉得不是个味。于是自己动手改进,采用控件加一个T
FORM
继承类来实现。
特点:
1.封装完成,目标窗口整洁。便于设计期摆放控件。
2.附加磁性和顶层显示属性。
安装方法:
1.安装 Q_Neo
Form
.pas 控件。
2.添加搜索路径。
使用方法:
1.在普通窗口中添加 Q_Neo
Form
控件。
2.在 use 中添加 Neo
Form
s 。
3.将 T
Form
1=Class(T
Form
) 改为 T
Form
1=Class(TNeo
Form
)。
当然,您还可以制作一个通用模板重复使用。
属性说明:
Q_Neo
Form
:
BoldCaption:Boolean 窗口标题是否使用粗字体。
Magnet:Integer 磁性窗口的磁性度。
TopMost:Boolean 是否顶层显示。
系统按钮和边界属性可通过窗口的相关值进行调整。
已知
问题
:
在使用鼠标拖动边界改变尺寸时闪烁严重,作者试图使用 Double Buffer 改进,
效果不明显。
本软件修改自网上流传的 Neo
Form
代码,在此向原作者表示感谢,同时您可免费
使用本软件,如您对其进行改进,请MAIL一份给我,谢谢!
秋雨痕
http://q1xp.onchina.net
q.yuhen@263.net
C++ Builder 学习1
#include #pragma hdrstop #include "Unit1.h" #pragma package(smart_init) #pragma resource "*.dfm" T
Form
1 *
Form
1; _fastcall T
Form
1::T
Form
1(TComponent* Owner) :T
Form
(Owner) {
BCB 动态生成控件
BCB 动态生成控件 转载 2015年03月29日 23:46:30 窗体上的所有对象与窗体本身都成为一个类:T
Form
1,我们就是将类成员与类成员函数写到T
Form
1类中,程序运行时,实际上就是通过T
Form
1 类生成
Form
1对象, 所以,Unit1.cpp中的函数都以void __fastcall T
Form
1::打头,这就表明这些函数都是T
Form
1
[Delphi]将一个窗体
Form
1嵌入另一个窗体
Form
2
在做较大功能模块时常常需要调用已经写好的页面, 对于某些诸如向导,步骤式的模块每次弹出页面是不太友好的, 因此我尝试将已有的页面嵌入新做的页面中.以下为部分代码(由于项目保密, 在原工程上有删减),只列出实现效果的关键代码.
Form
1:unit F_
Form
1; interface uses Windows, Messages, SysUtils,
Var
iants, Classes, G...
2021-11-18 WinFrom面试题 将
Form
2作为子窗体显示在
Form
1内,如何实现?
将
Form
2作为子窗体显示在
Form
1内,如何实现? 将
Form
1的IsMdiContainer属性设置为True; 2)
Form
2 f2=new
Form
2(); f2.MdiParent=this;(这里的this指
Form
1,假设当前页就是
Form
1) F2.Show();
Delphi
5,386
社区成员
262,729
社区内容
发帖
与我相关
我的任务
Delphi
Delphi 开发及应用
复制链接
扫一扫
分享
社区描述
Delphi 开发及应用
社区管理员
加入社区
获取链接或二维码
近7日
近30日
至今
加载中
查看更多榜单
社区公告
暂无公告
试试用AI创作助手写篇文章吧
+ 用AI写文章