Password

[-tobi-]

Ein Vorschlag mit Konstante und 2 Formularen währe:

Hierzu sollte bei 'Projekt/Optionen' nur Form1 in 'Automatisch erzeugt' stehen und Form2 in 'verfügbare Formulare'

Form1 für Aufruf von Form2 und Programmende.
Hier muß bei uses im Interface-Teil 'Unit2' hinzugefügt werden.

Delphi-Quellcode:

procedure TForm1.cmdEndeClick(Sender: TObject);
begin
  Form1.Close;                       //Programmende
end;

procedure TForm1.cmdAnmeldenClick(Sender: TObject);
const
  passwd = 'test';
begin
  if passwd = txtPasswort.Text then
  begin
    Form1.Enabled := False;          //Weiterarbeiten auf Form1 verhindern
    Form2 := TForm2.Create(self);    //Form2 Erstellen
    try
      Form2.ShowModal                //Form2 Anzeigen
    finally
      Form2.Free;
    end;
  end;
end;

Code von Form2 um zu Form1 zurückzukehren

Delphi-Quellcode:

implementation

{$R *.dfm}

uses
  unit1;

procedure TForm2.FormClose(Sender: TObject; var Action: TCloseAction);
begin
  Form1.Enabled := True;           //ermöglichen auf Form1 weiterzuarbeiten
end;

...  //In Form2 kann nun das komplette eigendliche Programm erstellt werden.

Gruß
tobi