Forum: GUI-Design mit VCL / FireMonkey / Common Controls
Delphi
by cruiser,
16. Jan 2007
Nach ein bisschen probieren find ich die Kurve für Zehnerpotenzen am besten:
case (GetTickCount - fUpDownPressedAt) of
0..3999: udCredits.Increment := 1;
4000..6999: udCredits.Increment := 10;
7000..8999: udCredits.Increment := 100;
9000..9999: udCredits.Increment := 1000;
end;
Forum: GUI-Design mit VCL / FireMonkey / Common Controls
Delphi
by cruiser,
16. Jan 2007
Meine Lösung wäre:
auf der Form privat deklarieren:
private
fUpDownPressedAt: Cardinal;
Und dann die Ereignisse nutzen:
procedure TForm1.UpDown1Changing(Sender: TObject;
var AllowChange: Boolean);