Edit.text 5 mal Blinken lassen

[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.

[DeddyH]

Wozu eigentlich eine Stringliste? Ich würde das ungefähr so angehen:

Delphi-Quellcode:

type
  TfrmBlinkDemo = class(TForm)
    edtBlink: TEdit;
    tmrBlink: TTimer;
    btnBlink: TButton;
    procedure tmrBlinkTimer(Sender: TObject);
    procedure btnBlinkClick(Sender: TObject);
  private
    { Private-Deklarationen }
    FOriginalString: string;
    FCounter: integer;
    procedure Blink;
  public
    { Public-Deklarationen }
  end;

...

const
  BLINKCOUNT = 5;

{ TfrmBlinkDemo }

procedure TfrmBlinkDemo.Blink;
begin
  FCounter := 0;
  FOriginalString := edtBlink.Text;
  tmrBlink.Enabled := true;
end;

procedure TfrmBlinkDemo.btnBlinkClick(Sender: TObject);
begin
  Blink;
end;

procedure TfrmBlinkDemo.tmrBlinkTimer(Sender: TObject);
begin
  inc(FCounter);
  if Odd(FCounter) then
    edtBlink.Text := ''
  else
    edtBlink.Text := FOriginalString;
  if FCounter >= BLINKCOUNT * 2 then
    tmrBlink.Enabled := false;
end;

[himitsu]

Und seit 2009 kann man auch alles in Chinesisch schreiben, womit man dann mehr als nur 26 "Namen" zur Verfügung hat.

[Natcree]

lol Danke immer diese iron.......... .

Noch ne andere Frage

Ich erstelle in der FORM3 20 TEDIT Komponenten.
nun sollen diese bei keypress die Timer Komponenten auslösen

Delphi-Quellcode:

procedure TForm3.SpielerKeyPress(Sender: TObject; var Key: Char);
var
Spieler:TEdit;
begin
    Spieler:=TEdit(Sender);
    st:=Tstringlist.Create;
    st.Add(Spieler.text);
    if Key = #13 then
    begin
    key := #0;//schalt sound ab
    Timer1.Interval := 500;
    timer1.Enabled:=true;
    end;
end;

Delphi-Quellcode:

procedure TForm3.Timer1Timer(Sender: TObject);
begin
//habe es hier auch schon mit Spieler:=TEDIT(Sender)( versucht) und edit1 mit Spieler ersetzt
//klappt aber nicht
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;

Wie Übergebe ich hier Statt edit1.text den sender der den Timer ausgelöst hat?

[himitsu]

Indem du dir den "Sender" merkst?

Zitat:

Delphi-Quellcode:

procedure TForm3.Timer1Timer(Sender: TObject);
begin
//habe es hier auch schon mit Spieler:=TEDIT(Sender)( versucht) und edit1 mit Spieler ersetzt

Kein Wunder.

Rate mal, wer dieses Ereignis auslöst und demnach in diesem Sender drin steht?

ShowMessage((Sender as TComponent).Name); .

Wenn du dir nicht sicher bist, daß der Typ stimmt, dann verwende niemals harte Konvertierungen ala TTyp(...) , sondern nur weiche Konvertierungen ala (... as TTyp)

[DeddyH]

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