delphi Anmeldeformular
In meinem Delphi-Programm gibt es ein Anmeldeformular, das vor dem Erstellen des Hauptformulars angezeigt wird. Das Problem besteht jedoch darin, dass ich mich anmelden möchte, um es im Hauptformular zu verarbeiten. Dies bedeutet, dass das Anmeldeformular verwendet wird das Hauptformular zum Überprüfen und Fortfahren,
Bitte lesen Sie den Kommentar in:
procedure LogInButtonClick (Sender: TObject);
Hier ist der TLoginForm-Code (von delphi.about.com ):
unit login;
interface
uses
Windows, Messages, SysUtils, Variants, Classes,
Graphics, Controls, Forms, Dialogs, StdCtrls;
type
TLoginForm = class(TForm)
LogInButton: TButton;
pwdLabel: TLabel;
passwordEdit: TEdit;
procedure LogInButtonClick(Sender: TObject) ;
public
class function Execute : boolean;
end;
implementation
{$R *.dfm}
class function TLoginForm.Execute: boolean;
begin
with TLoginForm.Create(nil) do
try
Result := ShowModal = mrOk;
finally
Free;
end;
end;
procedure TLoginForm.LogInButtonClick(Sender: TObject) ;
begin
if passwordEdit.Text = 'delphi' then
{
Here how it's possible to use :
if MainForm.text=passwordEdit.Text then
ModalResult := mrOK
}
ModalResult := mrOK
else
ModalResult := mrAbort;
end;
end.
Und hier ist der Ablauf der Hauptprogramminitialisierung:
program PasswordApp;
uses
Forms,
main in 'main.pas' {MainForm},
login in 'login.pas' {LoginForm};
{$R *.res}
begin
if TLoginForm.Execute then
begin
Application.Initialize;
Application.CreateForm(TMainForm, MainForm) ;
Application.Run;
end
else
begin
Application.MessageBox('You are not authorized to use the application. The password is "delphi".', 'Password Protected Delphi application') ;
end;
end.
Danke dir