社区
Delphi
帖子详情
我怎样实现在显示主窗体前显示并控制其它窗体?
zcn
2000-08-24 08:15:00
我在用delphi编写数据库程序时,在出现主窗体界面前有一个登录窗体,让用户输入工号和口令,检验通过后才显示主界面(并非是一个启动封面,启动封面一闪而过或者延时一下稍做停留,而登录窗体要永久停下除非用户检验通过或输三次密码后不通过)。这个怎样实现?另外,如果是将登录窗体设为主窗体,这样不规范,而且这样的话,主界面最小划时其任务栏图标很难看。(因为它不是主窗体)
...全文
133
7
打赏
收藏
我怎样实现在显示主窗体前显示并控制其它窗体?
我在用delphi编写数据库程序时,在出现主窗体界面前有一个登录窗体,让用户输入工号和口令,检验通过后才显示主界面(并非是一个启动封面,启动封面一闪而过或者延时一下稍做停留,而登录窗体要永久停下除非用户检验通过或输三次密码后不通过)。这个怎样实现?另外,如果是将登录窗体设为主窗体,这样不规范,而且这样的话,主界面最小划时其任务栏图标很难看。(因为它不是主窗体)
复制链接
扫一扫
分享
转发到动态
举报
写回复
配置赞助广告
用AI写文章
7 条
回复
切换为时间正序
请发表友善的回复…
发表回复
打赏红包
flyby
2000-09-04
打赏
举报
回复
只用在主窗体的Create事件里加上formlogin.shoemodal()就行了,
程序处理完登录工作,会自动往下执行主窗体的show()。
jumpboy
2000-08-24
打赏
举报
回复
将Form2不要自动生成
procedure TForm1.FormShow(Sender: TObject);
begin
Application.CreateForm(TForm2, Form2);
Form2.showmodal;
end;
Michaelyfj
2000-08-24
打赏
举报
回复
有问题...
Michaelyfj
2000-08-24
打赏
举报
回复
这其实和启动窗体很类似,启动窗体和显示一小段时间自动关闭,
而登录窗体是油用户干预后才关闭,在工程文件(.dpr)中输入:
begin
Application.CreateForm(TFormMain, FormMain); //创建主窗体
Application.CreateForm(TFormPwd, FormPwd); //创建登录窗体
if FormPwd.ShowModal=mrok then //密码验证正确后返回mrok
Application.Run
else Application.Terminate;
end;
在Formpwd登录窗体中如果密码验证正确后ModalResult := mrok
否则 ModalResult := mrCancel;
Michaelyfj
2000-08-24
打赏
举报
回复
这和启动窗体类似,只是启动窗体在一段时间后自动关闭并释放。而登录窗体要等到用户输入
工号和密码验证正确后关闭。在工程文件(.dpr)中写入,如:
begin
Application.CreateForm(TFormMain, FormMain);//创建主窗体
Application.CreateForm(TFormPwd, FormPwd);
if FormPwd.ShowModal<>mrOk then
Application.Terminate
else
Application.Run;
end;
当密码验证正确后, 让FormPwd.ShowModal返回mrOk,即ModalResult := mrOk
Michaelyfj
2000-08-24
打赏
举报
回复
这和启动窗体类似,只是启动窗体在一段时间后自动关闭并释放。而登录窗体要等到用户输入
工号和密码验证正确后关闭。在工程文件(.dpr)中写入,如:
begin
Application.CreateForm(TFormMain, FormMain);//创建主窗体
Application.CreateForm(TFormPwd, FormPwd);
if FormPwd.ShowModal<>mrOk then
Application.Terminate
else
Application.Run;
end;
当密码验证正确后, 让FormPwd.ShowModal返回mrOk,即ModalResult := mrOk
keboy
2000-08-24
打赏
举报
回复
It is so easy!
....
With TloginForm.Create(Application) do
Begin
ShowModal;
...
end;
BringToFront;
VB
实现
主
窗体
控制
副窗口的
显示
与隐藏
内容索引:VB源码,界面编程,
窗体
,工具栏 一个实用的
窗体
程序,VB使用
主
窗体
的按钮
控制
副
窗体
自由打开与隐藏,类似工具栏样式的窗口,附在
主
窗体
旁边,可以
显示
、隐藏,运行截图看出是两个
窗体
,实际在制作过程中和一...
Visual C++ 编程资源大全(源码
窗体
)
(64KB)<END><br>108,MSDNWnd.zip 这是一个MSDN中的切分窗口的例子,虽不怎么样但已经完整展示了切分操作。对于初学者是一个很好的参考。(37KB)<END><br>109,rulers.zip 使用固定大小的切分窗口(上面、左边...
Python Tkinter
窗体
讲解
Python作为自立门户的语言,除了学习它的基础编程之外,它还提供了
窗体
的学习,这样相对来说,它就完整了,如果大家学习过C#
窗体
实现
或者Java,MFC等等吧,再学习它就会简单的多。当然大家也不用担心,即使没学过,...
在单文档程序中动态切换多个
窗体
的源码程序
<br> 二、
实现
技术 <br> 新建一个基于CFormView的单文档应用程序,再添加一个
窗体
和与之对应的基于 CFormView的新视类,然后通过在
主
框架类里添加
控制
代码和菜单
控制
实现
这两个
窗体
的动态 切换...
delphi 开发经验技巧宝典源码
0269 打开MDI
窗体
时其他
窗体
会
显示
出来的原因 177 8.4
窗体
的大小及位置 178 0270
控制
窗体
的最大化、最小化 178 0271 无标题栏时改变
窗体
的大小 178 0272 无标题栏最大化时不覆盖任务栏 178 0273 限制...
Delphi
5,379
社区成员
262,722
社区内容
发帖
与我相关
我的任务
Delphi
Delphi 开发及应用
复制链接
扫一扫
分享
社区描述
Delphi 开发及应用
社区管理员
加入社区
获取链接或二维码
近7日
近30日
至今
加载中
查看更多榜单
社区公告
暂无公告
试试用AI创作助手写篇文章吧
+ 用AI写文章