Forum: Object-Pascal / Delphi-Language
Delphi
by Zidane,
14. Mai 2006
Nun ja, Case ist dann wieder was neues für mich, ich bleib erstmal beim vorherigen! :)
Aber dankeschön, im Nachhinein erscheint das alles immer so logisch! :gruebel:
Gracias! :thumb:
Forum: Object-Pascal / Delphi-Language
Delphi
by Zidane,
14. Mai 2006
Ah ok! :)
Durch CounterVar: Integer = 0; wird der Zähler also auf 0 gesetzt oder?
Vielen Dank, wieder was dazu gelernt! ;)
Forum: Object-Pascal / Delphi-Language
Delphi
by Zidane,
14. Mai 2006
@Matze: Danke, klingt gut, aber ich habe mit dem implementieren Probleme.
Hab CounterVar deklariert aber weiß nun nicht genau wo ich das Inc einbinden soll.
var
Form1: TForm1;
CounterVar: Integer;
implementation
{$R *.DFM}
Forum: Object-Pascal / Delphi-Language
Delphi
by Zidane,
14. Mai 2006
Hallo,
ich möchte einen Timer so einbauen, dass während der Timer Prozedur eine gewisse Zeit gewartet wird.
procedure TForm1.Timer1Timer(Sender: TObject);
begin
Form1.ShapeRot.Brush.Color := clred;
Form1.ShapeGelb.Brush.Color := clyellow;
//hier 2 Sekunden warten
Form1.ShapeRot.Brush.Color := clwhite;
Form1.ShapeGelb.Brush.Color := clwhite;