Edit.text 5 mal Blinken lassen

[DeddyH]

Selber merken? Und ist Dir aufgefallen, dass Du bei jedem Tastendruck eine neue Stringliste erzeugst, die nirgends freigegeben wird?

[Der schöne Günther]

Wenn ich das richtig verstanden habe: Deine Edits teilen sich alle den gleichen Handler (SpielerKeyPress). Jetzt möchtest du mit dem jeweiligen Edit direkt bei Tastendruck einmal direkt machen, was der Timer normalerweise periodisch macht, oder erst beim nächsten Timer-Tick?

[DeddyH]

Wenn ich den Code richtig verstehe, soll mit einem "RETURN" im jeweiligen Edit der Timer aktiviert werden.

[Natcree]

Zitat:

Wenn ich den Code richtig verstehe, soll mit einem "RETURN" im jeweiligen Edit der Timer aktiviert werden.

Ja so ist es gemeint.

Habe jetzt den Sender in stringlist gespeichert.

und will ihm im Timer wieder nutzen

Delphi-Quellcode:

procedure TForm3.Timer1Timer(Sender: TObject);
var
Spieler:TEdit;
begin
Spieler.name:=st.strings[1];
if Spieler.Text =  st.Strings[0] then Spieler.text :=  ''  else
if Spieler.text =  ''            then Spieler.Text :=  st.Strings[0];
timer1.Tag  :=  Timer1.tag+1;
if timer1.Tag = strtoint(st.strings[0])*2 then timer1.Enabled :=  false;
end;

Er gibt mir aber fehler aus

[DeddyH]

Natürlich, denn Du tust nicht das, was Du eigentlich meinst. Im Moment weist Du der Eigenschaft Name der nicht erzeugten Instanz Spieler einen Wert zu, möchtest aber doch eigentlich die Instanz ermitteln, die den Namen hat. Das ginge z.B. mit FindComponent oder FindControl, aber ich würde mir überlegen, wieso man den Namen speichern sollte, wenn man sich auch die Instanz selbst merken kann.

[Natcree]

Zitat:

wenn man sich auch die Instanz selbst merken kann.

Wie mache ich das?

[DeddyH]

Schau Dir doch meinen Code von hier noch einmal an. Da könnte man doch noch ein privates Feld hinzufügen.

Delphi-Quellcode:

private
    { Private-Deklarationen }
    FOriginalString: string;
    FCounter: integer;
    FEditDasBlinkenSoll: TEdit; // <-- 1 2 3 keine Hexerei
    procedure Blink;