PHP код:
tMyLabelTimer = class(tTimer)
private
fLabel: tLabel;
procedure MyonTimer(Sender: tObject);
constructor Create(aInterval: Integer; aLabel: tLabel);
end;
/////////////////////
procedure TForm1.Button1Click(Sender: TObject);
begin
tMyLabelTimer.Create(1000, Label1);
end;
{ tMyLabelTimer }
constructor tMyLabelTimer.Create(aInterval: Integer; aLabel: tLabel);
begin
inherited Create(nil);
Interval := aInterval;
fLabel := aLabel;
OnTimer := MyonTimer; // <===
end;
procedure tMyLabelTimer.MyonTimer(Sender: tObject);
begin
fLabel.Caption := IntToStr(random(100));
end;
кстати по умолчанию enabled=true после создания