Edit.text 5 mal Blinken lassen

[Natcree]

Hallo ich möchte den Text einer TEdit Komponente 5 mal Blinken lassen.

Ich habe dazu einen TTimer in dem folgendes Steht

Delphi-Quellcode:

procedure TForm3.Timer1Timer(Sender: TObject);
begin
Edit1.Visible := not edit1.Visible;
end;

1. Nur Blendet er Hier nur das Edit feld ein und aus....
2. Er soll es nur 5 mal Blinken lassen.....

kann mir jemand weiter helfen??

[Union]

Laß einen Zähler mit laufen und wenn der die 10 (5x an + 5x aus) erreicht schaltest Du den Timer wieder ab.

[DeddyH]

Und wenn nur der Text "blinken" soll, speicherst Du ihn zwischen und wechselst zwischen dem gespeichtern String und einem Leerstring.

[Union]

... oder änderst die Fontfarbe oder Farbe des Editfeldes.

[DeddyH]

Oder alles zusammen, das sollte auf jeden Fall auffallen.

[Natcree]

Okay habe es hin bekommen

Delphi-Quellcode:

procedure TForm3.Timer1Timer(Sender: TObject);
begin
Edit1.Visible := not edit1.Visible;
timer1.Tag:=Timer1.tag+1;
if timer1.Tag=strtoint(edit1.Text)*2 then timer1.Enabled:=false;
end;

So jetzt müsste nur noch der Text verschwinden und nicht die komplette edit box?

[Neutral General]

Zitat von Natcree:

So jetzt müsste nur noch der Text verschwinden und nicht die komplette edit box?

Zum Glück hat DeddyH eine Zeitmaschine und konnte die Antwort darauf posten bevor du die Frage gestellt hast

[Natcree]

Zitat:

Und wenn nur der Text "blinken" soll, speicherst Du ihn zwischen und wechselst zwischen dem gespeichtern String und einem Leerstring.

Delphi-Quellcode:

var
st:Tstringlist;
...
...

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

Geht es auch noch kürzer?

[Der schöne Günther]

Also nachdem du ja schon die Einrückungen entfernt hast könntest du Timer1 noch in T1 und Edit1 in E1 umbenennen, das spart nochmal ein paar Buchstaben.

[Union]

Zitat von Der schöne Günther:

Also nachdem du ja schon die Einrückungen entfernt hast könntest du Timer1 noch in T1 und Edit1 in E1 umbenennen, das spart nochmal ein paar Buchstaben.

Nicht zu vergessen TForm3 -> F Und überhaupt, man kann doch bei Pascal auch alles in eine Zeile schreiben, dann spart man sich die Umbrüche.