Das Problem ist, meine Anwendung läuft ohne Tastatur, muss also für die Passworteingabe 9 Buttons erstellen, mit Zahlen und Buchstaben, so wie die alten Handys das haben.
Dann 2 Min. da nicht das Problem besteht, das ein User mit der Maus mitten in die Eingabe klickt...
Delphi-Quellcode:
var
Ein,PW : ShortString;
procedure TForm86.Edit1Change(Sender: TObject);
begin
Ein := Edit1.Text;
Timer1.Enabled := true;
end;
procedure TForm86.Timer1Timer(Sender: TObject);
var
i : integer;
begin
Timer1.Enabled := false;
for i:=1 to length(Ein) do
if (Ein[i] <> '*') and (Length(Ein) > Length(PW)) then
PW := PW + Ein[i];
PW[0] := Ein[0];
for i:=1 to length(Ein) do
Ein[i] := '*';
Edit1.Text := Ein;
Edit1.SelStart := Length(Ein);
end;
Oder habe ich auf die schnelle etwas übersehen? (geht sicherlich auch schöner)