Forum: GUI-Design mit VCL / FireMonkey / Common Controls
Delphi
by freak4fun,
7. Jul 2006
Code in Form1:
procedure TForm1.Button1Click(Sender: TObject);
begin
if InputBox('Caption', 'Password?', '') = 'test' then
Form2.ShowModal
else
ShowMessage('Das eingegebene Passwort ist falsch!');
end;
Wenn ich das Passwort richtig angebe, wird Form 2 geöffnet, ansonsten kommt die Meldung, dass das Passwort falsch ist.
Forum: GUI-Design mit VCL / FireMonkey / Common Controls
Delphi
by freak4fun,
7. Jul 2006
Wenn du das zu schützende Formular nur von einer Stelle aufrufst kann du doch deine Passwortabfrage vorm Aufruf machen.
wenn pwd = pwd dann
Anzeigen des Formulars
sonst
nicht anzeigen
Ansonsten würde ich die prüfung ins OnShow-Event legen.
MfG