Passworteingabe, wie mit Sternchen verstecken, aber nicht das letzte Zeichen?

[AlexII]

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. Die virtuelle Tastatur von Windows will ich aus bestimmten Gründer nicht nutzen. Ich arbeite also noch an meiner "Handy-Tastatur", die Passwortversteckerei kommt noch. ))

[Perlsau]

Wo ist da das Problem? Das ist doch kein Problem, das ist lediglich eine Aufgabe. Ein Problem wäre es, wenn du nicht weiterkämst, also nicht wüßtest, wie du das programmieren kannst.

[AlexII]

Zitat von Perlsau:

Wo ist da das Problem? Das ist doch kein Problem, das ist lediglich eine Aufgabe. Ein Problem wäre es, wenn du nicht weiterkämst, also nicht wüßtest, wie du das programmieren kannst.

Jah... es geht noch... komme gut voran.

[Mavarik]

Zitat von AlexII:

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)

[AlexII]

@Mavarik Sage mal, du schaltest den Timer vor dem zu verarbeitenden Code aus, ist das gut so? Ich weiß der Code wird abgearbeitet, aber ich hatte immer bedenken bei sowas...

[Mavarik]

Zitat von AlexII:

@Mavarik Sage mal, du schaltest den Timer vor dem zu verarbeitenden Code aus, ist das gut so? Ich weiß der Code wird abgearbeitet, aber ich hatte immer bedenken bei sowas...

Warum? Woher kommen deinen Bedenken? "Er" springt dann sicherlich nicht aus der Procedure raus...
Ich möchte doch nicht, dass die ganze Zeit der Timer in 250ms feuert...

[Sherlock]

Im OnTimer-Event schaltet man doch immer den Timer aus. Oder habe ich etwas verpasst?

Sherlock

[AlexII]

Zitat von Sherlock:

Im OnTimer-Event schaltet man doch immer den Timer aus. Oder habe ich etwas verpasst?

Sherlock

Habe ich auch immer gemacht, war mir aber nicht sicher.

[Mavarik]

Zitat von Sherlock:

Im OnTimer-Event schaltet man doch immer den Timer aus.

Immer? Wieso Immer?

Wenn ich einen zyklischen Timer brauche schalte ich Ihn doch nicht ab...

Wenn ich den Timer refreshen will dann ein

Delphi-Quellcode:

Timer1.Enabled := false;
Timer1.Enabled := true;

OK... Oder meine Routine dauert länger als das Interval des Timers (Ich hoffe nicht)... dann auch...

[Sir Rufo]

Wenn der Benutzer gar nicht in das Feld klicken können soll und in dem Feld selber keine Eingabe vornehmen soll, warum nimmt man dann überhaupt ein TEdit ?