Ich habe es zurzeit folgendermaßen geregelt:
Delphi-Quellcode:
// Hier fange ich das loslassen der Linken Maustaste und Pfeiltaste 'hoch' ab
procedure TForm12.ApplicationEvents1Message(var Msg: tagMSG;
var Handled: Boolean);
begin
if (Msg.message = (WM_LBUTTONUP)) or (Msg.message = WM_KEYUP ) then
begin
Timer1.Enabled:=false; // Timer wird gestoptt
RxSpinEdit1.Increment:=Power(10,-(RxSpinEdit1.Decimal)); // Erhöhungsschritt wird zurückgsetzt auf kleinste (letzte Stelle)
end;
end;
// Zeitbasis wird beim Hoch/Runter klicken der Spinbuttons aktiviert
procedure TForm12.RxSpinEdit1TopClick(Sender: TObject);
begin
Timer1.Enabled:=true;
end;
//
procedure TForm12.Timer1Timer(Sender: TObject);
begin
RxSpinEdit1.Increment:= RxSpinEdit1.Increment+(Power(10,-(RxSpinEdit1.Decimal))); // Erhöhungsschritt wird erhöht
// Beispiel: Decimal steht auf 2 (also 2 Nachkommastellen), das heißt es sieht folgendermaßen aus:
// '0.00' gut nun wird der Incrementschritt um 0.01 erhöht
end;
Wie kann ich das nun in meiner 'neuen' Komponente unterbringen?