SpinEdit TSpinEdit: Gibt es Eigenschaft o. Ereignis Pfeil(e) losgelassen?

[Delphi-Laie]

Hallo Delphifreunde!

Drückt man bei einem SpinEdit dauerhaft den Nach-Oben bzw. den Nach-Unten-Pfeil, so "scrollt" es mit seinem Wert beständig aufwärts oder abwärts (mit kleiner Verzögerung). Dabei wird ständig das Ereignis "OnChange" ausgelöst, es findet also eine Art Dauerfeuer statt.

Gibt es nun die Möglichkeit, abzufragen, ob noch einer der beiden Pfeile gedrückt ist? So oft, wie das Ereignis nämlich ausgelöst wird, ist die Ausführung des Codes der Ereignisbehandlungsroutine nicht immer nötig oder gewünscht, und diese hohe Frequenz kann sogar problematisch werden. So könnte man den Inhalt der Ereignisbehandlungsroutine nur ausführen lassen, wenn man mit der (Maus-)Eingabe tatsächlich fertig ist, erkennbar daran, daß kein Pfeil mehr gedrückt wird. Die manuelle Eingabe ist ja nicht so schnell (wenn man nicht gerade eine Taste lang niederdrückt), und da die Maus dann gar nicht erst gedrückt wurde und mithin ist, wird das dann genauso erkannt und behandelt.

Vielleicht kann man das (auch?) mit dem Ableiten einer eigenen Klasse lösen, aber das kann ich nur vermuten. Der Spinbutton, der vermutlich ein Bestandteil des Spinedits ist, hat auch keine diesbezüglichen Ereignisse. Und OnClick bezieht sich leider nur auf das Klicken auf das Editfeld.

Alternativ wäre auch noch das Ereignis "Pfeil losgelassen" (meinetwegen auch separat für jeden Pfeil) möglich, aber auch das gibt es nicht.

Weiß jemand Rat, wie man die Ereignisbehandlung auf das tatsächliche Ende des Mausdrückens beschränkt?

[Bummi]

vielleicht kannst Du aus diesem Ansatz etwas machen?

Delphi-Quellcode:

procedure TForm2.ApplicationEvents1Message(var Msg: tagMSG; var Handled: Boolean);
begin
   if Msg.message= WM_LBUTTONDOWN then FMouseDown := true
   else if Msg.message= WM_LBUTTONUP then FMouseDown := false

end;

procedure TForm2.SpinEdit1Change(Sender: TObject);
begin
   if not FMouseDown then Caption := SpinEdit1.Text;

end;

[ASM]

Oder ganz einfach eigene OnEvents auf den Status (up, down) des SpinEdit.Buttons erklären:

Delphi-Quellcode:

type
  TForm1 = class(TForm)
    SpinEdit1: TSpinEdit;
    procedure FormCreate(Sender: TObject);
  private
    { Private-Deklarationen }
  public
    { Public-Deklarationen }
    procedure OnSpinEditUpButtonClick(Sender: TObject);
    procedure OnSpinEditDownButtonClick(Sender: TObject);
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.FormCreate(Sender: TObject);
begin
  SpinEdit1.Button.OnUpClick := OnSpinEditUpButtonClick;
  SpinEdit1.Button.OnDownClick := OnSpinEditDownButtonClick;
end;

procedure TForm1.OnSpinEditUpButtonClick(Sender: TObject);
begin
  Showmessage('Up geklickt');
end;

procedure TForm1.OnSpinEditDownButtonClick(Sender: TObject);
begin
  Showmessage('Down geklickt');
end;

end.

[Bummi]

@ASM

das wird nicht den gewünschten Effekt haben, da es bei jeder Änderung ausgelöst wird.

[ASM]

Zitat von Bummi:

@ASM

das wird nicht den gewünschten Effekt haben, da es bei jeder Änderung ausgelöst wird.

Stimmt.
Ich hatte übersehen, dass entscheidend sein soll, festzustellen, ob der SpinEditButton gerade gedrückt ist.
Mein Vorschlag dagegen kann das gerade nicht und ist vielmehr darauf ausgelegt, festzustellen, ob gerade entweder auf Up oder aber auf Down gedrückt wird, und das dann entsprechend nach Bedarf zu behandeln (btw: so kann man außerdem auch in Stufen>1 in- bzw. dekrementieren).

[himitsu]

Oder lagere den Code in einen Timer aus (Timer-Interval etwas länger, als das OnClick-Interval).

Im OnClick wird dann nur Timer.Enabled:=False; Timer.Enabled:=True; ausgeführt.
Im OnTimer dann Timer.Enabled:=False; und danach der eigentliche Code.