Here's a fix;
DynamicModule[{t = 0, slider = 0, stepOnce},
stepOnce[] := (t++;);
Column[{
Grid[{{"Slider",
Slider[Dynamic[slider], {0, 1}, ContinuousAction -> False],
Dynamic@NumberForm[slider, {4, 2}]}}, Alignment -> Left,
Spacings -> {2, 1}],
Dynamic[
Refresh[stepOnce[];
Row[{"t = ", t}], UpdateInterval -> 2, TrackedSymbols :> {}]]
}
]
]
If I can find the time, I'll explain later. It's complicated.