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:

Zitat von Bummi (Beitrag 1155156)

@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

Delphi-Quellcode:

Timer.Enabled:=False; Timer.Enabled:=True;

ausgeführt.
Im OnTimer dann

Delphi-Quellcode:

Timer.Enabled:=False;

und danach der eigentliche Code.

[Delphi-Laie]

Hallo, danke Euch allen!

Bummi, Deinen Vorschlag probierte ich als ersten, und zwar alles mit true und false und mit if FMouseDown und if not FMousedown. Nichts funktioniert so wie gewünscht, und inzwischen ist mir auch klar, warum: Das OnChange-Ereignis wird nur ausgelöst, wenn ein Pfeil (und damit die linke Maustaste) noch gedrückt ist. Wird kein Pfeil mehr gedrückt, schaltet zwar FMouseDown um, doch es fehlt eben das OnChange-Ereignis. Der nächste Vorschlag, auch dafür danke, wird wohl auch nicht diesem Ereignis zugrundeliegen, das sehe sogar ich. Probieren werde ich das aber trotzdem.

Was ich benötige, ist das Ereignis, daß ein Pfeil "losgelassen" wird. Leider scheint es das nicht zu geben, und an dieses heranzukommen, ist wohl schwierig bis womöglich unmöglich. Also, laßt Euch Eure Zeit nicht weiter von mir rauben, es sei denn, es ist für Euch eine sportliche Herausforderung an den Ehrgeiz.

Nochmals danke!

Ergänzung: Ein stinknormaler Button hat dieses Ereignis, das ich meine: OnMouseUp. SpeedButton und BitBtn auch. Mal schauen, ob irgendjemand dieser Typen/Klassen für die Pfeile beim SpinEdit oder UpDown herhalten mußte. Ergänzung 2: Nein, scheint ein TTimerSpeedButton zu sein, wohl eine abstrakte Klasse. Scheibenkleister. Ergänzung 3: Wohl doch nicht so abstrakt und kennt sogar das Ereignis OnMouseUp...

[Delphi-Laie]

Zitat:

Zitat von himitsu (Beitrag 1155201)

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

Im OnClick wird dann nur

Delphi-Quellcode:

Timer.Enabled:=False; Timer.Enabled:=True;

ausgeführt.
Im OnTimer dann

Delphi-Quellcode:

Timer.Enabled:=False;

und danach der eigentliche Code.

Das ist zwar eine "Bastellösung", die mir nicht sonderlich elegant erscheint (ich träume immer noch davon, irgendwie noch an ddie OnMouseUp-Ereignisse zu gelangen), aber sie funktioniert immerhin (ist jetzt keine Spitze gegen die Bemühungen zuvor). Danke, himitsu!

[Bummi]

@Delphi-Laie
welche Delphi/Windowsversion setzt Du ein? Ich frage weil die Eventlösung bei mir mit D2010 und XE unter Server 2008 und Vista funktioniert.

[Delphi-Laie]

Zitat:

Zitat von Bummi (Beitrag 1155273)

@Delphi-Laie
welche Delphi/Windowsversion setzt Du ein? Ich frage weil die Eventlösung bei mir mit D2010 und XE unter Server 2008 und Vista funktioniert.

Delphi 4 auf Windows 2000. Werde es "morgen" (ja eigentlich schon heute) mit Turbo-Delphi auf Windows XP (32 Bit) und ggf. auch mit XE2 unter Windows 7 (64 Bit) ausprobieren. Bis dahin ersteinmal: Gute Nacht!

[Delphi-Laie]

So, noch mal eine Nacht darüber geschlafen...

Also, ich möchte den Spinedit sowohl für die Maus- als auch für die Editeingabe (be)nutzen.

*Gibt (gäbe) es eine Eigenschaft "TimerSpeedButton (nicht) gedrückt" (egal, ob ich in dieser Klasse oder "extern" ermittelt, extern reicht es aus zu ermitteln, ob die (linke?!) Maustaste gedrückt ist oder nicht), dann kann (könnte) ich nur das Ereignis "OnChange" mit eben dieser Eigenschaft auswerten. Nur, wenn der Mausdruck vorbei ist, dann gibt es eben kein OnChange mehr (s. weiter oben).

Gibt (gäbe) es das Ereignis "TTimerSpeedButton.OnMouseUp", dann sind (wären) die Editeingaben nicht mit erfaßt, und ich stehe (stünde) zusätzlich vor obigem, mit * markiertem Problem. Ich müßte zwei Ereignisbehandlungsroutinen auswerten (die allerdings in eine gemeinsame Prozedur münden könnten).

Bummi, ich versuchte Deine Idee auch auf den im Beitrage weiter oben genannten Plattformen umzusetzen, aber es findet beim Dauermaustastendruck leider immer noch das unerwünschte "Dauerfeuer" statt. Ich setzte das so um:

Delphi-Quellcode:

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  StdCtrls, Spin;

type
  TForm1 = class(TForm)
    SpinEdit1: TSpinEdit;
    procedure ApplicationEvents1Message(var Msg: tagMSG; var Handled: Boolean);
    procedure SpinEdit1Change(Sender: TObject);
  private
    { Private-Deklarationen }
  public
    { Public-Deklarationen }
  end;

var
  Form1: TForm1;

implementation

{$R *.DFM}

var FMouseDown:boolean;

procedure TForm1.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 TForm1.SpinEdit1Change(Sender: TObject);
begin
if not FMouseDown then windows.beep(200+random(1000),100)
end;

end.

Ist daran etwas falsch?

Himitsu (=Geheimnis), Deine Idee ist simpel, erschlägt aber all' die o.g. Probleme auf ziemlich triviale Weise (muß man aber auch erst einmal darauf kommen) und ist so gesehen doch von ganz eigener Eleganz. Sie funktioniert ab ca. 110(+x) ms Timerintervall, wohl abhängig von der Computergeschwindigkeit. Das hat sicher mit RepeatPause=100 zu tun. Wundert mich nur, daß es auch für die Verzögerung nach dem ersten Klick, implementiert als InitRepeatPause=400 genauso funktioniert (also, daß der Timer sich nicht meldet).

Also noch einmal danke, ggf. auch im voraus für weitere Beiträge.

[Bummi]

beep funktioniert bei mir nicht, so habe ich das gewünschte Ergebnis

Delphi-Quellcode:

procedure TForm2.SpinEdit1Change(Sender: TObject);
begin
if not FMouseDown then Showmessage('Done')
//windows.beep(200+random(1000),100)
end;

[Delphi-Laie]

Ich leider nicht: Schon beim ersten Mausklick erscheint die (Show)Messagebox, die den Fokus auf sich erzwingt, und SpinEdit läuft nicht weiter (das soll ja passieren, nur eben das Ereignis dazu entweder nicht ausgeführt bzw. abgefangen oder mit einer passenden boolschen Variable ins Leere laufen gelassen werden). Wenn zwei das gleiche tun, ist es eben doch nicht dasselbe, das bewahrheitet sich leider immer wieder.

[Bummi]

Hast Du ApplicationEvents1 angehängt also das ganze an die Komponente gehängt, ist FMouseDown initialisiert (besser als Klassenvariable)

[Delphi-Laie]

Bummi, ich verstehe Deine Frage leider überhaupt nicht. Ich "bepperlte" ein Spinedit auf das Formular, rief dessen Standardereignis auf, füllte es (zunächst mit beeps, dann mit dem Showmessage), und den Rest fügte ich "manuell" hinzu. Die gesamte Unit zeigte ich.

[Thom]

Delphi-Quellcode:

function IsKeyDown(Key: Integer): Boolean;
begin
  Result:=GetKeyState(Key)<0;
end;

function IsLeftMouseButtonDown: Boolean;
begin
  Result:=IsKeyDown(VK_LBUTTON);
end;

[Bummi]

ok, Dir fehlt eine Komponente, deren Property OnMessage ist zu versorgen

Delphi-Quellcode:

 ApplicationEvents1: TApplicationEvents;

[Delphi-Laie]

Thom, das ist das gleiche Problem, das ich schon oben beschrieb: Wenn die linke Maustaste nicht gedrückt wird, wird das OnChange-Ereignist gar nicht erst ausgelöst, so daß umgekehrt, wenn dieses Ereignis (von der Maus) ausgelöst wird, die Funktion immer true ergibt. Das verhindert zwar die "Salve" und taugt auch für manuelle Eingaben in das Edit (die dann korrekterweise das OnChange auslösen), unterdrückt jedoch auch das letzte mausverursachte OnChange, doch das möchte ich hingegen auswerten. Mir ist nunmehr klar, daß es auch nicht damit getan ist, abzufragen, ob beide TTimerSpeedButtons nicht gedrückt sind - dort taucht nämlich das gleiche Problem auf, als wenn man die Maustasten abfragen würde. Vielmehr wäre noch ein zusätzlich abruf- und auswertbares Ereignis "TTimerSpeedButton.OnMouseUp" vonnöten, aber das ist wohl unerreichbar.

Bummi, welche Komponente ist/wäre das? Ich benutzte dafür nur das "nackte" Turbo- respektive XE2-Delphi ohne irgenwelche Drittkomponenten.

Himis Idee mit den Timern erfüllt im übrigen genau das, was ich suchte. Ich werde in Kürze eine neue Version meines Sortierprogrammes hier veröffentlichen, das diese Idee implementiert haben wird. Ohne diese timergesteuerte Verzögerung (bzw. genaugenommen Prozedurablaufunterdrückung) hängt sich die neue Version meines Programmes an diesen "Salven" irgendwann auf - Grund unbekannt.

Also noch einmal danke Euch allen!

[Bummi]

wenn do TApplicationEvents nicht als Komponente hast kannst Du auch folgendes machen (hoffentlich bei Turbo)

Delphi-Quellcode:

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

end;

procedure TForm2.FormCreate(Sender: TObject);
begin
  Application.OnMessage := MyOnMessage;
end;

[Delphi-Laie]

Bummi, das funktioniert, und zwar genausogut wie himitsus Idee. Das ist genau das, was ich meinte und suchte und ist sogar ein wenig einfacher als das "Rumgemache" mit den Timern (die ihren Zweck aber auch erfüllen).

Es funktioniert sogar schon mit Delphi 2!

Programmieren ist ein wenig wie Hexerei. Eine jahrelange Schule ist nötig, und nicht jeder schafft es, in die tiefsten Untiefen hinabzutauchen, nicht wahr?

Danke!

[himitsu]

Daß einzige Problem an

Delphi-Quellcode:

Application.On... :=  ...;

ist...
Versuch dieses Ereignis mal mehrmals zu verwenden. Auch einige Fremdkomponenten hängen sich gerne an sowas dran.


Darum wurde TApplicationEvents auch erfunden, auch wenn dieses echt bescheuert implementiert ist.
(nämlich ewbenfalls auch auf diese Events, anstatt es Delphiintern direkt zu verbinden)

[Delphi-Laie]

Sagt mal, himitsu und Bummi, Ihr beiden Guten, wären Eure guten und vor allem funktionierende Ideen nicht etwas für die "Programmier Tips" im Swissdelphicenter? So frei nach dem Motto: Wie kann ich.... verhindern, daß beim "Scrollen" (oder wie heißt das?) in einem SpinEdit ständig das OnChange "feuert"? Wert sind sie es auf jeden Fall. Ich weiß nicht, wie man das dort einträgt, außerdem bin ich kein "Gutti", der sich mit fremden Federn schmückt.

Ergänzung: Soeben füge ich einen Anhang bei, der beide hier vorgestellte Möglichkeiten demonstriert.

Ergänzung 2: Bummi, klickt man mehrmals schnell hintereinander auf einen der TTimerButton, dann klappt das evtl. nicht mit dem Abfangen des OnChanges, d.h., jedes OnChange führt seinen Code komplett aus. Wird wohl die boolsche Variable nicht den richtigen Wert haben, warum, weiß ich nicht. Werde ich mich also doch für himitsus Variante entscheiden.

Ergänzung 3: Das "Fehlverhalten" der onmessagegesteuerten Variante entsteht wohl dann, wenn man einen Doppeklick auf einen TTimerButton innerhalb des Doppelklickintervalles vollführt und bem zweiten Klick die Maustaste gedrückt läßt/hält. Ist also in dieser Form leider nicht fehlbediensicher.