上海频道做网站怎么样,长沙教育建设信息网站,网站建设教程免费,四川住房建设和城乡建设厅新网站Delphi7我们这里用登录窗体来做演示。输入正确用户名和密码后#xff0c;登录窗体释放#xff0c;显示主窗体。
方法/步骤
1.打开Delphi7集成开发环境#xff0c;在默认工程的Form1窗体放置一个Label1控件#xff0c;拖动控件边界调整大小#xff0c;并将Object Inspect…Delphi7我们这里用登录窗体来做演示。输入正确用户名和密码后登录窗体释放显示主窗体。
方法/步骤
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窗体出现正常实现了登录功能 注意事项 这个是最佳的登录窗体设计比什么在Form1的Create方法中显示Form2好很多
