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?