Also in meinem Prog sieht die Password abfrage bis jetzt so aus:
Delphi-Quellcode:
procedure TPasswordForm.PasswordEditKeyPress(Sender: TObject;
var Key: Char);
begin
if Key = #27 then close;
if Key = #13 then begin
if PasswordEdit.Text = 'matrix'
then begin
password;
close;
PreferencesForm.ShowModal;
end;
if PasswordEdit.Text = 'program failure'
then begin
close;
MainForm.Close;
end;
end;
end;
im objectmanager des Edit-Feldes kaste unter Password-Char das zeichen eingeben, was die anderen überzeichnen soll...