SpinEdit mit größeren Erhöhungsschritten

[DelphiManiac]

Hallo,

ich benutze in meinem Programm eine Komponenete der JVCL (JEDI).

Um genauer zu sein ein TJVSpinEdit.

Dieses Editfeld kann Zahlen aufnehmen und über ein Up/Down Feld erhöhen erniedrigen.
Hier gibt es die Eigenschaft

Delphi-Quellcode:

 
  JvSpinEdit1.Increment:=1;

Diesen Erhöhungschritt kann ich setzten.

Ich will, dass mein Editfeld bei länger gedrückte Maustaste den Erhöhungsschritt erhöht.

Diese kann ich ja auch ohne Probleme machen

Beispiel Up -Ereignis

Delphi-Quellcode:

procedure TFrmMain.JvSpinEdit1TopClick(Sender: TObject);
begin
  if JvSpinEdit1.Tag > 10 then // wenn 10 mal in die Prozedure gesprungen (TopClick des Up-Buttons)
  begin
    JvSpinEdit1.Increment:=10; // Erhöhe Zählschritt
  end
  else
  begin
    JvSpinEdit1.Increment:=1;
  end;
  JvSpinEdit1.Tag:=JvSpinEdit1.Tag+1; //  Zähle den Tag hoch

end;

Mein Problem ist es aber , wie kann ich feststellen, dass die Maustaste losgelassen wurde`??????
Dann muss ich ja meinen Increment Schritt wieder zurücksetzen

Delphi-Quellcode:

PseudoCode
procedure OnMausTasteLosgelassen (Sender:TObject)
begin
  JvSpinEdit1.Increment:=1; // Setzte zurück
end;

Hoffe ihr helft mir bei dem Prob!!
Denn ich verzweifel hier gleich :-)

Gruß DelphiManiac

[Luckie]

Hilft eventuell das Ereignis OnMouseUp, wenn es denn das für das SpinEdit gibt.

[OldGrumpy]

oder die Luxusversion:

in TFrmMain.JvSpinEdit1TopClick jeweils die aktuelle Zeit merken und mit dem letzten Wert vergleichen. Wenn weniger als z.B. eine halbe Sekunde vergangen ist, dann den Tag um eins erhöhen, ansonsten Tag und Increment zurück auf eins setzen. Ist der Tag größer als zehn, dann nicht weiter erhöhen, aber den Increment hochsetzen.

[DelphiManiac]

Hi Luckie,

ja das Ereignis gibt es bei TJVSpinEdit.

Leider wird es aber nur ausgelöst, wenn die Mouse über dem EditFeld losgelassen wird (und nicht über den UP/Down) Buttons

:cry:

Hast du noch eine Idee???

Danke für die schnelle Antwort

@OldGrumpy

hey gute Idee, werde dass mal eben testen!!!!
Sage dir dann bescheid ob dass geklappt hat.

[DelphiManiac]

Hey Danke euch beiden.

Mit der Differenz-Zeitmessung mit

Delphi-Quellcode:

  gettickcount;

klappt dass so wie ich das mir vorgestellt habe.
Ist die Differenz < 150 ms dann erhöhe ich meinen Tag,
wenn nein, dann setzt ich ihn zurück auf 0

Wenn er größer 10 ist dann erhöhe ich meinen Increment, ansonsten bleibt er gleich.

Das klappt!!

THX

Gruß DelphiManiac

[Luckie]

Könntest du bitte der Vollständigkeit halber den gesamten Quelltext im Zusammenhang hier posten?