Booleanabfrage eines timers

[Meflin]

Zitat von Toxman:

probiers mal kürzer, da kann man weniger Fehler einbauen:

Delphi-Quellcode:

if ttimer(findcomponent('timer'+inttostr(1))).enabled
then label1.caption:='an' else label1.caption:='aus';

Damit überprüf ich in Timer2 ob Timer1 am Laufen ist. Braucht noch ne Variable weniger und erklärt sich schneller.

oder auch gleich

Delphi-Quellcode:

if ttimer(findcomponent('timer1')).enabled
then label1.caption:='an' else label1.caption:='aus';