Delphi7最佳登录窗体设计

原创
|
浏览：3778
|
更新：2018-11-28 09:37

分步阅读

Delphi7我们这里用登录窗体来做演示。输入正确用户名和密码后，登录窗体释放，显示主窗体。

工具/原料

Delphi7
Windows电脑

方法/步骤

1
打开Delphi7集成开发环境，在默认炼董没工程的Form1窗体放置一个Label1控件，拖动控件边界调整大小，并将Object Inspector的AutoSize设置为False。
2
点击File-New-Form新建一个窗体Form2。并在窗体放两个Edit控件，两个Label控件，一个Caption为;用户名，一个Caption为：密码，分别对应两个Edit框，再放两个Button,Caption分别为登录和取消。
3
在Unit2.pas文件中添加Login()方法，代码如下：
function Login():Boolean; //方法声明
implementation
{$R *.dfm}
function Login():Boolean; //方法定义
var
FormLogin:TForm2;
begin
译冲 FormLogin:=TForm2.Create(nil);
Result := FormLogin.ShowModal = mrOk;
FormLogin.Free;
end;
4
双击登录按钮，在OnClick时间响应方法中写如下代码：
procedure TForm2.Button1Click(Sender: TObject);
begin
if (Self.Edit1.Text = 'abc') and (Self.Edit1.Text = 'abc') then
begin
ModalResult:=mrOK;
end;
end;
当用户名和密码都是abc时正常释放登录窗体
5
点击Project-Options弹出Project Options for Project1对话框，在Forms页签下auto-created forms仅保留Forms1.
6
点击Project-View Source改写代码如下：
program Project1;
uses
Forms,
Unit1 in 'Unit1.pas' {Form1},
Unit2 in 'Unit2.pas' {Form2};
{$R *.res}
begin
Application.Initialize;
if Login() then
Application.CreateForm(TForm1, Form1);
Form1.Label1.Caption:='登录成功'；
Application.Run;
end.
7
F9运行程序，在登泪兼录窗体用户名密码均输入abc，登录窗体消失，Form1窗体出现，正常实现了登录功能
END
7
该信息非法爬取自百度经验