Password

[Meflin]

Zitat von -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

hi,
das macht das austricksen aber sehr leicht, da es tools gibt, die disabled elemente enablen können (ich hab auch eins gebastelt http://www.acira.net das funzt aber glaub ich nur mit controls also nicht mit der form, aber vom prinzip her)