如何在主创提出现前弹出一个密码输入窗口？？？？？(30分)

  • 主题发起人 主题发起人 bestdelpher
  • 开始时间 开始时间
B

bestdelpher

Unregistered / Unconfirmed
GUEST, unregistred user!
好像用inputbox不能显示为*号？
 
在主窗口的FormCreate事件中打开密码输入窗口。
 
将你的程序主窗体设为密码输入窗口,具体的设置方法在工程属性里
显示星号很简单,用一个EDIT控件,将它的Passwrodchar设为'*'就可以了
其实在主窗体之前实现密码窗体方法很多的!
 
不错，在主窗体运行前，先调用密码检测的窗体，不就行了嘛？
 
不错，给你个例子：
dlform即为你放密码的窗体
program Lz;

uses
Forms,
windows,
main in 'main/jsmain.pas' {jsmainForm},
dl in 'main/dl.pas' {DlForm},
...
...
{$R *.RES}

begin
Application.Initialize;
Application.CreateForm(TMainForm, MainForm);
Application.CreateForm(TDlForm, DlForm);
if dlForm.ShowModal<>idok then
begin
MainForm.free;
dlForm.free;
halt;
end;
Application.Run;
 
修改项目代码：在 Application.Run;代码执行前先showmodal你的密码窗体。
我就是这么做的。
 
借花献佛：

begin
Application.Initialize;
Application.CreateForm(TDlForm, DlForm);
if dlForm.ShowModal=idok then
begin
Application.CreateForm(TMainForm, MainForm);
Application.Run;
end;
 
同意上面观点，可惜来晚了。
 
我们接过一个工程3万，大三时，是这么做的， 在登陆窗体写一个函数 funtion IsLogo(...)
:Boolean; 然后再 工程文件中 的 Application.Run 前面一行， 加
if IsLogo(...)=True then Application.Run;
给分吧，我要分还账
 
您必须登录或注册才可回复。

Similar threads

Ray
[转]终于可以发布Delphi下收点OSGI精髓皮毛而设计的插件框架WisdomPluginFramework
回复
4
查看
5K
chlkuei
C
T
在一个登陆窗口中输入用户名和密码，单击确定后，想让一个MDI主窗口显示出来时出现以下错误信息，cannot create form. no mdi forms
回复
14
查看
235
hanpengshan_00
H
5
在调用inputbox函数，弹出的窗口中输入内容为*,或有没有函数像inputbox能在一个窗休中有两个输入框(100分)
回复
8
查看
267
520zhuhaibo
5
F
那位知道如何实现类似于oicq的接到消息自动弹出窗口的功能(100分)
回复
6
查看
169
fjx_jwf
F
D
如何屏蔽网页的弹出窗口？(100分)
回复
4
查看
234
yczjs
Y
后退
顶部