Delphi应用程序的主窗体是在应用程序主体中创建的第一个窗体（窗口）。如果需要为Delphi应用程序实现某种授权，则可能需要在创建主窗体并向用户显示之前显示登录/密码对话框。简而言之，其思想是在创建主窗体之前创建、显示和销毁“登录”对话框。

delphi主窗体

创建新的Delphi项目时，“Form1”自动成为（全局应用程序对象的）MainForm属性的值。要将不同的表单分配给MainForm属性，请使用项目的表单页面&gt；设计时的“选项”对话框。当主窗体关闭时，应用程序终止。

登录/密码对话框

让我们从创建应用程序的主窗体开始。创建一个包含一个表单的新Delphi项目。这种形式在设计上是主要形式。

如果您将表单的名称更改为“TMainForm”，并将单元另存为“main.pas”，则项目的源代码如下所示（项目另存为“PasswordApp”）：

program PasswordApp; uses Forms, main in 'main.pas' {MainForm}; {$R *.res} begin Application.Initialize; Application.CreateForm(TMainForm, MainForm) ; Application.Run; end.

现在，向项目中添加第二个表单。根据设计，添加的第二个表单将列在“项目选项”对话框的“自动创建表单”列表中。

将第二个表单命名为“tloginfo”，并将其从“自动创建表单”列表中删除。将装置另存为“login.pas”。

在表单上添加标签、编辑和按钮，然后使用类方法创建、显示和关闭登录/密码对话框。如果用户在密码框中输入了正确的文本，“Execute”方法返回true。

以下是完整的源代码：

unit login; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls; type TLoginForm = class(TForm)

登录按钮：t按钮；pwdLabel:TLabel；密码编辑：TEdit；程序登录按钮点击（发送方：ToObject）；

publicclass function Execute : boolean;end; implementation{$R *.dfm} class function TLoginForm.Execute: boolean;beginwith TLoginForm.Create(nil) dotry Result := ShowModal = mrOk; finally Free; end;end; procedure TLoginForm.LogInButtonClick(Sender: TObject) ;beginif passwordEdit.Text = 'delphi' then ModalResult := mrOK else ModalResult := mrAbort; end; end.

Execute方法动态创建tloginfo的实例，并使用showmodel方法显示它。直到表单关闭，ShowModal才会返回。当窗体关闭时，它返回ModalResult属性的值。

如果用户输入了正确的密码（“LogInButton”OnClick事件处理程序将“mrOk”分配给ModalResult属性（在上面的示例中为“delphi”）。如果用户提供了错误的密码，ModalResult将设置为“mrAbort”（可以是除“mrNone”之外的任何内容）。

将值设置为ModalResult属性将关闭表单。如果ModalResult等于“mrOk”（如果用户输入了正确的密码），则Execute返回true。

登录前不要创建mainform

如果用户未能提供正确的密码，您现在只需确保未创建主窗体。

以下是项目源代码的外观：

program PasswordApp; uses Forms, main in 'main.pas' {MainForm}, login in 'login.pas' {LoginForm}; {$R *.res} beginif TLoginForm.Execute thenbegin Application.Initialize; Application.CreateForm(TMainForm, MainForm) ; Application.Run; endelsebegin Application.MessageBox('You are not authorized to use the application. The password is "delphi".', 'Password Protected Delphi application') ; end;end.

请注意if-then-else块的用法，以确定是否应创建主窗体。如果“Execute”返回false，则不会创建MainForm，并且应用程序会在不启动的情况下终止。