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

[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
 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 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)