-
-
[求助]delphi checkbox的问题。
-
发表于: 2009-1-26 16:15
-
这样写为什么会询问两次啊，如果输错密码的话。
procedure TForm16.CheckBox1Click(Sender: TObject);
begin
if inputquery('','密码?????????',s)=true then
begin
if s='123' then
begin
showmessage('ok!');
checkbox1.enabled:=false;
end
else
begin
checkbox1.Checked:=false;
showmessage('错了!');
end;
end
else
checkbox1.Checked:=false;
end;
还有自从用了gifimage.pas后在IDE运行程序退出后会出现这样错误提示是什么意思，生成的EXE退出不会显示错误！
procedure TForm16.CheckBox1Click(Sender: TObject);
begin
if inputquery('','密码?????????',s)=true then
begin
if s='123' then
begin
showmessage('ok!');
checkbox1.enabled:=false;
end
else
begin
checkbox1.Checked:=false;
showmessage('错了!');
end;
end
else
checkbox1.Checked:=false;
end;
还有自从用了gifimage.pas后在IDE运行程序退出后会出现这样错误提示是什么意思，生成的EXE退出不会显示错误！
|
|
|---|---|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
但是我不知道怎么解决 ｀｀｀｀｀｀｀｀｀｀｀｀｀｀｀
|
