Hallo,

gibt es irgendeine Möglichkeit sich über das loslassen der Maustaste über einer Komponente (die Kein MouseUP Event hat) informieren zu lassen?

Mein Problem: ich nutze ein TJVSpinEdit.

Ein Editfeld der Jedis mit dem man auch Floatwerte darstellen kann, in dem Editfeld rechts hat man Up/Down Buttons (kennt mitsicherheit jeder) die zu hoch/runter zählen benutzt werden.

Nun das Edifeld als solche bietet mir ja ein MouseUP Event an, aber das bringt mir nichts, da ich ja das Event für die Buttons brauche.

Also Benutzer hält die Linke Maustaste gedrückt über dem (Bsp:) Hochzählen Button und lässt sie dann (irgendwann) los ,das muss ich erkennen können.

Danke schonmal...

//EDIT: Hatte MouseDown anstatt MouseUP geschrieben

Wie wärs mit dem OnMouseUP Event ?

Hi chrisw

chrisw hat folgendes geschrieben:

Wie wärs mit dem OnMouseUP Event ?

Ja leider gibt es kein MouseUp/Down Event für die Buttons des Editfeldes, das ist ja mein Problem:

Versteh ich nicht !

Wenn ich Abfangen möchte, ob die linke Maustaste losgelassen wurde kann ich das doch im OnMouseUp abfangen !

Bsp.:

chrisw hat folgendes geschrieben:

Versteh ich nicht ! Wenn ich Abfangen möchte, ob die linke Maustaste losgelassen wurde kann ich das doch im OnMouseUp abfangen ! Bsp.: markieren Delphi-Quelltext     1: 2: 3: 4: procedure Tform1.JvSpinEdit1MouseUp(....); begin   if Button = mbLeft then .... end;

Leider geht dies so nicht, da dieses Event nur ausgelöst wird, wenn die Maustaste über dem Editfeld (und nicht über dem [integriertem] Up/Down Tasten losgelassen wurde

Hat den keiner eine Idee, wie man das lösen könnte?

Danke euch...

OnBottomClick und OnTopClick sind nicht ausreichend ?
Dann musst Du wohl eine neue Komponente ableiten.

chrisw hat folgendes geschrieben:

OnBottomClick und OnTopClick sind nicht ausreichend ? Dann musst Du wohl eine neue Komponente ableiten.

Hi ja genau das wollte/will ich tun, habe jedoch noch nicht sonderlich viel Erfahrung in der Komponentenerstellung.
Also die Buttons haben ja irgendwann mal von TControl geerbt, und TControl hat ja ein MouseUp Event, aber dieses wird wohl nicht durchgereicht, und ist sowie ich das sehe private, wird also dann in meiner Komponente auch nicht verfübar sein,oder??

Gruß
und Danke schonmal

Das könntest du doch auch mit GetAsyncKeystate machen:

Wenn du dir den Quelltext der JEDI-Komponente (in JvSpin.pas) mal ansiehst, dann siehst du, dass das da bereits vorhanden ist, dass das aber nicht in die äußere Komponente weitergegeben wird. Du müsstest also die Datei kopieren, den Komponentennamen ändern und die Funktionalität dementsprechend ändern können.

jaenicke:

Hi ja da hast du Recht so müsste ich es machen, habe leider noch nicht so viel Erfahrung was Komponentenentwicklung angeht, ich habe mir die Datei jetzt mal kopiert und umbenannt.

Da wird natürlch ganz schön viel vereerbt..., was das ganze nicht unbedingt leichter macht,
vielleicht kannst du (oder alle anderen) mir ja ein wenig helfen, bei der Implementierung.

Gruß
DelphiManiac

Jakob_Ullmann:

Wie würde ich es denn mit GetAsyncKey lösen können?

Gruß
DelphiManiac