社区
Delphi
帖子详情
急! 关于窗体???
Qcj
2000-04-22 06:10:00
要求程序启动时输入密码,输入正确才可进入主界面,主界面结束则程序结束。应该如何设置?
我把密码窗体设为主窗体,可真正进入主界面后退出时却无法结束应用程序。
把主界面设为主窗体可密码窗体又无法显示。求助!!!
...全文
96
3
打赏
收藏
急! 关于窗体???
要求程序启动时输入密码,输入正确才可进入主界面,主界面结束则程序结束。应该如何设置? 我把密码窗体设为主窗体,可真正进入主界面后退出时却无法结束应用程序。 把主界面设为主窗体可密码窗体又无法显示。求助!!!
复制链接
扫一扫
分享
转发到动态
举报
写回复
配置赞助广告
用AI写文章
3 条
回复
切换为时间正序
请发表友善的回复…
发表回复
打赏红包
RIAEasy
2000-04-22
打赏
举报
回复
不要用Application.CreateForm方法,这样不好.
应为:
设置一个全局Boolean (PassOK)量,
FormPassword:=TForm2.Create(Application);
try
PassOK:=....;
finally
FormPassWord.Free;
end;
if PassOK then Application.CreateForm......
else Exit;
Application.Run;
mytree
2000-04-22
打赏
举报
回复
好象不行吧!
试试这样。
password为主窗体。
program Project1;
uses
Forms,
Unit1 in 'Unit1.pas' {Form1},
Unit2 in 'Unit2.pas' {Form2};
{$R *.RES}
begin
Application.Initialize;
Application.CreateForm(TForm2, Form2);
Application.CreateForm(TForm1, Form1);
Application.Run;
end.
在password窗体form2里加一个edit1,一个Button1,下面是Button1的onclick事件。
procedure TForm2.Button1Click(Sender: TObject);
begin
if edit1.Text = '1' then
begin
form1.show ;
hide ;
end
else
close ;
end;
在form1的onclose事件里关闭form2:
procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction);
begin
form2.close ;
end;
eaglet
2000-04-22
打赏
举报
回复
很简单.主界面还是主窗体.
在工程文件中加入
Application.ShowMainForm := FALSE ;
这样主窗体在一开始就不会显示
然后你把 密码输入窗体的 Visible 设为 TRUE
就可以实现了.
以下是工程文件的例子.
program Project1;
uses
Forms,
Unit1 in 'Unit1.pas' {Form1},
Unit2 in 'Unit2.pas' {Form2};
{$R *.RES}
begin
Application.Initialize;
Application.ShowMainForm := FALSE ;
Application.CreateForm(TForm1, Form1);
Application.CreateForm(TForm2, FormPassword);
Application.Run;
end.
c#
窗体
加入flash教程
急
完美屏蔽鼠标右键
1.选择“工具箱”,单击鼠标右键,在弹出的快捷菜单中选择“选择项”。 ... ...(版本可能有细微差别) 在工具箱的容器面板里有个...在放入
窗体
中时报错“未能导入ActiveX 控件。请确保它已正确注册”. 所以手动添加如下代码:
窗体
置顶 透明 PowerMenu [免费版]
别
急
,既然是惊喜,当然是隐藏在特别的地方。打开任务栏窗口中的右键菜单,你会发现多了四个选项。你可以设置改窗口的优先级别、总在最前面、最小化到系统栏,最有意思的是,你还可以设置该窗口的透明度,虽然此功能...
Python Tkinter
窗体
讲解
Python作为自立门户的语言,除了学习它的基础编程之外,它还提供了
窗体
的学习,这样相对来说,它就完整了,如果大家学习过C#
窗体
实现或者Java,MFC等等吧,再学习它就会简单的多。当然大家也不用担心,即使没学过,...
录像软件-绿色版
绿色版,屏幕录像 应用
窗体
录像,个性录像,一款安全的录像工具,开包
急
用
查找已打开应用程序的源码
灵芝网友要的
急
,我费些力气找到原来写的代码,在ACCESS上再改进过。它的功能是什么呢,譬如说我在ACCESS中调用了计算器,然后又回到了ACCESS
窗体
,但过一会儿,我又想把这个计算器又调出来,而且想自动传些数字给它...
Delphi
5,388
社区成员
262,730
社区内容
发帖
与我相关
我的任务
Delphi
Delphi 开发及应用
复制链接
扫一扫
分享
社区描述
Delphi 开发及应用
社区管理员
加入社区
获取链接或二维码
近7日
近30日
至今
加载中
查看更多榜单
社区公告
暂无公告
试试用AI创作助手写篇文章吧
+ 用AI写文章