Das ist völliger Quatsch... (schon einmal einen Blick in den
OI geworfen?
)
Zitat von
oldmax:
Delphi-Quellcode:
Procedure Form1.Edit1KeyPress(Sender : Tobject; var Key: Char);
Begin
Geheim:=Geheim+Key; // hier beschreibst du dein unsichtbares geheimes Wort.
Key:='*'; // Das Sternchen überschreibt den Text im Editfeld, also ist deine Eingabe unsichtbar
end;
Wie wär's mit:
Edit1.PasswordChar:='*';
Zitat von
oldmax:
Delphi-Quellcode:
Procedure Form1.Edit2KeyPress(Sender : Tobject; var Key: Char);
Begin
if Length(Edit2.Text)>1 then Key:=''; // begrenzt die Eingabe auf 1 Zeichen.
end;
Warum einfach, wenns auch umständlich geht?
Edit1.MaxLength:=1