Forum: Programmieren allgemein
by Natcree,
20. Feb 2014
also sollte ich die Tstringliste nur in der Form create setzen damit siw nur einmal erstellt wird.
Mit dem st.free gebe ich nur die gespeichert strings frei richtig wäre das so etwas korreker...???
Forum: Programmieren allgemein
by Natcree,
20. Feb 2014
Danke für die Hilfe und da ich Faul und unverbesserlich bin habe ich es so gemacht
procedure TForm3.SpielerKeyPress(Sender: TObject; var Key: Char);
var
Spieler:TEdit;
begin
Spieler:=TEdit(Sender);
st:=Tstringlist.Create;
st.Add(Spieler.text);
st.Add((Sender as TComponent).Name);
Forum: Programmieren allgemein
by Natcree,
20. Feb 2014
Ja so ist es gemeint.
Habe jetzt den Sender in stringlist gespeichert.
und will ihm im Timer wieder nutzen
procedure TForm3.Timer1Timer(Sender: TObject);
var
Spieler:TEdit;
begin
Forum: Programmieren allgemein
by Natcree,
20. Feb 2014
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
procedure TForm3.SpielerKeyPress(Sender: TObject; var Key: Char);
var
Spieler:TEdit;
Forum: Programmieren allgemein
by Natcree,
20. Feb 2014
var
st:Tstringlist;
...
...
procedure TForm3.Timer1Timer(Sender: TObject);
begin
if Edit1.Text=st.Strings then Edit1.text:=''else
if edit1.text='' then Edit1.Text:=st.Strings ;
timer1.Tag:=Timer1.tag+1;
Forum: Programmieren allgemein
by Natcree,
20. Feb 2014
Okay habe es hin bekommen
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?
Forum: Programmieren allgemein
by Natcree,
20. Feb 2014
Hallo ich möchte den Text einer TEdit Komponente 5 mal Blinken lassen.
Ich habe dazu einen TTimer in dem folgendes Steht
procedure TForm3.Timer1Timer(Sender: TObject);
begin
Edit1.Visible := not edit1.Visible;
end;
1. Nur Blendet er Hier nur das Edit feld ein und aus....