Fragen zum Timer!

[helgew]

Na, kommst du zurecht?

Ich hätte noch einen Vorschlag, wenn das dir zuviele timerobjekte werden:

Delphi-Quellcode:

var
   timers : Array [0..10] of TTimer;


procedure TForm1.FormCreate(Sender: TObject);
begin
  for i := 0 to 10 do 
  begin
    timers[i] := TTimer.Create(form1);
    timers[i].OnTimer := AllTimerEvent;
    timers[i].Tag := i;
  end;
end;

procedure TForm1.AllTimerEvent(Sender:TObject);
begin
  Case (Sender as TTimer).Tag of
    0:
    1:
    2:
   // ...
  end;

end;