Einzelnen Beitrag anzeigen

Der schöne Günther

Registriert seit: 6. Mär 2013
6.110 Beiträge
 
Delphi 10 Seattle Enterprise
 
#5

AW: mousemove mousedown triggern

  Alt 26. Feb 2014, 15:53
Ich habe gelesen, dass es mit triggen von mousemove zu mousedown funktionieren soll.
Stimmt, da war nirgendwo konkreter Quelltext. Und "Triggern" hört sich wahnsinnig kompliziert an, ist aber nichts anderes als

Delphi-Quellcode:
procedure TForm2.Panel1MouseDown(..);
begin
   // Was beim Drücken halt passieren soll
end;

procedure TForm2.Panel1MouseMove(..);
begin
   // Multitouch-Anomalie: MouseMove kommt zuerst, mouseDown erst, wenn sich der
   // Zeiger danach bewegt. Und für diese Bewegung muss er erst eine bestimmte
   // Schwelle überschreiten. Deshalb jetzt manuell einen MouseDown erzeugen
   if ssTouch in Shift then
      Panel1MouseDown(Sender, TMouseButton.mbLeft, Shift, X, Y);
end;
  Mit Zitat antworten Zitat