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