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

[haentschman]

Moin...

du bastelst dir dein eigenes Event und löst es im OnTimer aus und übergibst soviele Parameter wie du vorgibst. Deine "Auswertung verknüpfst du dann mit deinem Event statt mit OnTimer.

Delphi-Quellcode:

TMeinEvent = procedure(Sender: Tobject; aIndex: Integer) of object;
.
FMeinEvent: TMeinEvent; // und als Property MeinEvent nach außen verfügbar machen
.
MeinEvent:= MeineProcedure;
.
Layer_Timer[i] := TTimer.Create(Self);
Layer_Timer[i].Tag := i;
.
Layer_Timer[i].OnTimer := MeinOnTimer;
.
.
procedure MeinOnTimer(Sender: TObject);
begin
  if Assigned(FMeinEvent) then
    FMeinEvent(Sender,Sender.Tag);
end;

procedure MeineProcedure(Sender: TObject; aIndex);
begin
  // deine Auswertung
end;

...einfach so runtergetippt mithalboffenen Augen Hoffe es gibt zumindest Denkansatz.