Ich rate mal:
Du hast ein Array of TTimer und alle diese Timer haben eine OnTimer-Prozedur. In dieser Prozedur willst du auf MeineForms : array of TForm (nur geraten
) zugreifen, weißt haber nicht welcher Timer dieses Event gerade abgefeuert hat.
Wenn dem so ist, ist hier mein Vorschlag wie man das sauber löst:
Delphi-Quellcode:
type
TMyFormTimer = class(TTimer)
private
FForm : TForm;
public
constructor Create(AOwner: TComponent; AForm : TForm);
property Form : TForm read FForm;
end;
//...
constructor TMyFormTimer.Create(AOwner: TComponent; AForm : TForm);
begin
inherited Create(AOwner);
FForm:=AForm;
end;
//deine bisherige OnTimer-Prozedur
procedure OnTimer(Sender : TObject);
begin
if Sender is TMyFormTimer then
TMyFormTimer(Sender).Form.MachWasMitDemForm;
end;
Natürlich muss du jetzt ein Array of TMyFormTimer nutzen und auch TMyFormTimer-Objekte erzeugen.