效果图![在这里插入图片描述](https://i-blog.csdnimg.cn/direct/93b03c9857864cbdb9dd0c35507091b7.gif#pic_center)
平面效果图
实现“确认按钮”和“加密”
//点击确认输入按钮
procedure TForm1.btn1Click(Sender: TObject);
//加密部分
var
passwd_2,passwd_3:string;
begin
passwd_2:=edt1.Text;
Delete(passwd_2,3,2);
passwd_3:=mima;
Delete(passwd_3,3,2);
if(passwd_2=passwd_3) then
MessageBox(Handle,'密码正确','恭喜',MB_OK)
else
begin
if(flag>1) then
begin
MessageBox(Handle,'密码错误','警告',MB_OK or MB_ICONSTOP);
flag:=flag-1;
lbl1.caption:='请输入密码,您还有'+IntToStr(flag) +'次机会';
end
else
begin
MessageBox(Handle,'密码错误,没有机会了','警告',MB_OK or MB_ICONSTOP);
close;
end;
end;
end;
实现“显示密码”
//点击显示密码
procedure TForm1.chk1Click(Sender: TObject);
begin
if (ShowPasswd=false) then
begin
edt1.PasswordChar:=#0;
ShowPasswd:=true;
end
else
begin
edt1.PasswordChar:='*';
ShowPasswd:=false;
end;
end;
录制gif图
今天发现了一个简易的录制gif动图的方法。
(1)用QQ的录屏,录制后是mp4文件。
(2)使用免费的在线转换工具,将mp4文件转换成gif文件。