AGB  ·  Datenschutz  ·  Impressum  







Anmelden
Nützliche Links
Registrieren
Zurück Delphi-PRAXiS Programmierung allgemein Algorithmen, Datenstrukturen und Klassendesign Delphi Elegante Lösung für While-LButton-Pressed-Loop
Thema durchsuchen
Ansicht
Themen-Optionen

Elegante Lösung für While-LButton-Pressed-Loop

Ein Thema von Codehunter · begonnen am 6. Okt 2016 · letzter Beitrag vom 9. Okt 2016
Antwort Antwort
Seite 1 von 2  1 2      
Benutzerbild von Codehunter
Codehunter

Registriert seit: 3. Jun 2003
Ort: Thüringen
2.272 Beiträge
 
Delphi 10.4 Sydney
 
#1

Elegante Lösung für While-LButton-Pressed-Loop

  Alt 6. Okt 2016, 10:22
Hallo!

Gibt es eine elegante Lösung für das Problem eines getriggerten LButtonDown? Folgende Zielstellung: Eine Komponente vergleichbar mit SpinEdit, abgeleitet von TWinControl. Zwei Buttons (allerdings gefaked, nur per StyleServices auf Canvas gepinselte Bildchen). Wenn man auf die Up- bzw. Down-Buttons klickt und gedrückt hält, soll ein Wert hochgezählt werden. Im originalen TSpinEdit ist das letztendlich über Timer gelöst. Nur frage ich mich: Ist das die einzige (vernünftige) Möglichkeit? Gibt es nicht vllt. eine Art wiederkehrender Windows-Message?

Grüße
Cody
Ich mache grundsätzlich keine Screenshots. Schießen auf Bildschirme gibt nämlich hässliche Pixelfehler und schadet der Gesundheit vom Kollegen gegenüber. I und E zu vertauschen hätte den selben negativen Effekt, würde aber eher dem Betriebsklima schaden
  Mit Zitat antworten Zitat
Benutzerbild von Uwe Raabe
Uwe Raabe

Registriert seit: 20. Jan 2006
Ort: Lübbecke
11.452 Beiträge
 
Delphi 12 Athens
 
#2

AW: Elegante Lösung für While-LButton-Pressed-Loop

  Alt 6. Okt 2016, 10:27
Gibt es nicht vllt. eine Art wiederkehrender Windows-Message?
WM_TIMER ist doch genau das Und dazu noch weitgehend anpassbar: Intervall, an/aus. Ich kann mir keine geeignetere Message vorstellen.
Uwe Raabe
Certified Delphi Master Developer
Embarcadero MVP
Blog: The Art of Delphi Programming
  Mit Zitat antworten Zitat
Benutzerbild von Codehunter
Codehunter

Registriert seit: 3. Jun 2003
Ort: Thüringen
2.272 Beiträge
 
Delphi 10.4 Sydney
 
#3

AW: Elegante Lösung für While-LButton-Pressed-Loop

  Alt 6. Okt 2016, 10:56
Gibt es nicht vllt. eine Art wiederkehrender Windows-Message?
WM_TIMER ist doch genau das Und dazu noch weitgehend anpassbar: Intervall, an/aus. Ich kann mir keine geeignetere Message vorstellen.
Jo, soweit schon klar ^^ Hätte ja sein können es gibt inzwischen eine Message a la "WM_LBUTTON_FURTHERMORE_DOWN" oder sowas Also eine Art Chimäre aus WM_LBUTTON_DOWN und WM_TIMER, die von Haus aus an ein bestimmtes Windowhandle gesendet wird. WM_TIMER ist ja sozusagen "ungezielt". Aber vielleicht bin ich gedanklich auch nur irgendwo falsch abgebogen...
Ich mache grundsätzlich keine Screenshots. Schießen auf Bildschirme gibt nämlich hässliche Pixelfehler und schadet der Gesundheit vom Kollegen gegenüber. I und E zu vertauschen hätte den selben negativen Effekt, würde aber eher dem Betriebsklima schaden
  Mit Zitat antworten Zitat
Benutzerbild von sakura
sakura

Registriert seit: 10. Jun 2002
Ort: Unterhaching
11.412 Beiträge
 
Delphi 12 Athens
 
#4

AW: Elegante Lösung für While-LButton-Pressed-Loop

  Alt 6. Okt 2016, 11:57
Nein, da auch die Hardware nur zwei Events sendet, Button down und Button up, erzeugt auch Windows keine weiteren Botschaften. Da bleibt dann nur ein Timer als Alternative.

......
Daniel Lizbeth
Ich bin nicht zurück, ich tue nur so
  Mit Zitat antworten Zitat
Benutzerbild von ConnorMcLeod
ConnorMcLeod

Registriert seit: 13. Okt 2010
Ort: Bayern
490 Beiträge
 
Delphi 10.4 Sydney
 
#5

AW: Elegante Lösung für While-LButton-Pressed-Loop

  Alt 6. Okt 2016, 13:58
in der winproc...
Delphi-Quellcode:
  case
    WM_LBUTTONDOWN:
      begin
        gbMouseDown := True;
        StartTimer;
      end;
    WM_LBUTTONUP: gbMouseDown := False;
  end;
im Timer:
Delphi-Quellcode:
  if gbMouseDown then begin
    inc(giCounter);
  end else begin
    KillTimer;
  end;
Anstatt Timer ginge auch ein Thread, würde mir besser gefallen
Nr.1 Delphi-Tool: [F7]
  Mit Zitat antworten Zitat
Benutzerbild von p80286
p80286

Registriert seit: 28. Apr 2008
Ort: Stolberg (Rhl)
6.659 Beiträge
 
FreePascal / Lazarus
 
#6

AW: Elegante Lösung für While-LButton-Pressed-Loop

  Alt 6. Okt 2016, 14:09
Nein, da auch die Hardware nur zwei Events sendet, Button down und Button up, erzeugt auch Windows keine weiteren Botschaften. Da bleibt dann nur ein Timer als Alternative.

......
Hardware?
Da fällt mir das Keyboard ein, und wenn ich mich recht erinnere, kann das fortlaufende Events generieren.

Gruß
K-H
Programme gehorchen nicht Deinen Absichten sondern Deinen Anweisungen
R.E.D retired error detector
  Mit Zitat antworten Zitat
Benutzerbild von Uwe Raabe
Uwe Raabe

Registriert seit: 20. Jan 2006
Ort: Lübbecke
11.452 Beiträge
 
Delphi 12 Athens
 
#7

AW: Elegante Lösung für While-LButton-Pressed-Loop

  Alt 6. Okt 2016, 14:22
Hier geht es aber um den linken Mouse-Button (genauer gesagt, der in den Mouse-Settings dafür eingestellt wurde):

Wenn man auf die Up- bzw. Down-Buttons klickt und gedrückt hält, soll ein Wert hochgezählt werden.
Uwe Raabe
Certified Delphi Master Developer
Embarcadero MVP
Blog: The Art of Delphi Programming
  Mit Zitat antworten Zitat
Benutzerbild von sakura
sakura

Registriert seit: 10. Jun 2002
Ort: Unterhaching
11.412 Beiträge
 
Delphi 12 Athens
 
#8

AW: Elegante Lösung für While-LButton-Pressed-Loop

  Alt 6. Okt 2016, 14:23
Hardware?
Da fällt mir das Keyboard ein, und wenn ich mich recht erinnere, kann das fortlaufende Events generieren.
Hardware kann das natürlich machen, aber für Mäuse ist das nun mal nicht so definiert.

......
Daniel Lizbeth
Ich bin nicht zurück, ich tue nur so
  Mit Zitat antworten Zitat
Benutzerbild von Codehunter
Codehunter

Registriert seit: 3. Jun 2003
Ort: Thüringen
2.272 Beiträge
 
Delphi 10.4 Sydney
 
#9

AW: Elegante Lösung für While-LButton-Pressed-Loop

  Alt 7. Okt 2016, 12:30
Ok, das Komponentchen ist fertig. Mit zweistufig schnellem Spinbutton-Repeat und absolut flickerfrei. Und Theme-Aware...

Die Ideenvorlage dafür war der ColorPickerDialog von PaintShopPro (die RGB-Spinner im unteren Bereich). Wobei es dort sowas von gar nicht flickerfrei realisiert ist. Insofern sogar besser ^^

Die Quellcodes kommen auch noch, will ich nur noch vorher etwas aufhübschen...
Angehängte Dateien
Dateityp: zip TrackSpinDemo.zip (862,6 KB, 26x aufgerufen)
Ich mache grundsätzlich keine Screenshots. Schießen auf Bildschirme gibt nämlich hässliche Pixelfehler und schadet der Gesundheit vom Kollegen gegenüber. I und E zu vertauschen hätte den selben negativen Effekt, würde aber eher dem Betriebsklima schaden
  Mit Zitat antworten Zitat
Benutzerbild von DeddyH
DeddyH

Registriert seit: 17. Sep 2006
Ort: Barchfeld
27.624 Beiträge
 
Delphi 12 Athens
 
#10

AW: Elegante Lösung für While-LButton-Pressed-Loop

  Alt 7. Okt 2016, 13:01
Sieht schick aus
Detlef
"Ich habe Angst vor dem Tag, an dem die Technologie unsere menschlichen Interaktionen übertrumpft. Die Welt wird eine Generation von Idioten bekommen." (Albert Einstein)
Dieser Tag ist längst gekommen
  Mit Zitat antworten Zitat
Antwort Antwort
Seite 1 von 2  1 2      


Forumregeln

Es ist dir nicht erlaubt, neue Themen zu verfassen.
Es ist dir nicht erlaubt, auf Beiträge zu antworten.
Es ist dir nicht erlaubt, Anhänge hochzuladen.
Es ist dir nicht erlaubt, deine Beiträge zu bearbeiten.

BB-Code ist an.
Smileys sind an.
[IMG] Code ist an.
HTML-Code ist aus.
Trackbacks are an
Pingbacks are an
Refbacks are aus

Gehe zu:

Impressum · AGB · Datenschutz · Nach oben
Alle Zeitangaben in WEZ +1. Es ist jetzt 10:13 Uhr.
Powered by vBulletin® Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
LinkBacks Enabled by vBSEO © 2011, Crawlability, Inc.
Delphi-PRAXiS (c) 2002 - 2023 by Daniel R. Wolf, 2024 by Thomas Breitkreuz