密码问题(没钱了,实在不好意思)(10分)

  • 主题发起人 Delphi之旅
  • 开始时间
D

Delphi之旅

Unregistered / Unconfirmed
GUEST, unregistred user!
待进入窗体:form1如下设置:
var
logined:boolean;
begin

procedure TForm1.FormCreate(Sender: TObject);
begin
Logined:=False;
end;

procedure TForm1.FormActivate(Sender: TObject);
begin
if not Logined then form2.Showmodal;
end;

密码登陆界面form2如下设置:

private
Passtime:byte;

{ Private declarations }
public
{ Public declarations }
end;

var
Form2: TForm2;
Passtime:byte;
implementation
uses unit3,unit1;

{$R *.dfm}

procedure TForm2.BitBtn2Click(Sender: TObject);
begin
Close;
Application.Terminate;
end;

procedure TForm2.BitBtn1Click(Sender: TObject);
begin
inc(PassTime);
if Edit1.Text=MyPass then
begin
form1.Logined:=True;
form1.WindowState:=wsMaximized;
Close;
end else
begin
Label1.Caption:=Format('密码错误第%d次,请重新输入:',[PassTime]);
if PassTime>=3 then
begin
BitBtn2.Click;
end else
begin
Edit1.Text:='';
Edit1.SetFocus;
end;
end;
end;



procedure TForm2.FormCreate(Sender: TObject);
begin
passtime:=0;
end;

end.

数据模块form3.已建好,提供mypass变量。



可是每次进入登陆后输入密码即使有误,也可进入form1.
如果把form1中的form2.showmadal改为form2.show.这时错误密码有 提示信息,
并且实现了此功能,但form2的取消按钮出错。

这是为什么?
 
受不了你的写法,看来老弟是初学了。努力吧。

你的passtime怎么有倆? 或许我没你水平高,但我担心不小心搞混了。唉。
如果application.termanate报错的话,试试application.mainform.close;
干脆就form1.close试试。看你的方式只能用showmodal了,要不密码框等于没有。
 
不好意思。
粗心造成。
 
上面的有效。
 
都不管用。
现在我要想实现密码框功能,
只有show.

用show什么都管用,就是退出时有错误信息如下:
cannot change visible in onshow or onhide.
 
顶部