Prezedur weitere Parameter als Sender: TObject übergeben und dynamische Timer

[unheilig1977]

Hallo,

am sinnvollsten nutzt Du dafür die TAG property des Timers - ist ideal für die Übergabe solcher einfachen Werte.

Also einfach in deiner Schleife:

Delphi-Quellcode:

...
Layer_Timer[i].Tag := i;
...

Und dann in Deiner MeineProz(Sender: TObject) :

Delphi-Quellcode:

Indes := (Sender as TTimer).Tag;
...

Gruß Jörg