AGB  ·  Datenschutz  ·  Impressum  







Anmelden
Nützliche Links
Registrieren
Thema durchsuchen
Ansicht
Themen-Optionen

einfaches Drag & Drop und MouseUp

Ein Thema von Alex_ITA01 · begonnen am 13. Jun 2017 · letzter Beitrag vom 14. Jun 2017
Antwort Antwort
Benutzerbild von himitsu
himitsu

Registriert seit: 11. Okt 2003
Ort: Elbflorenz
44.326 Beiträge
 
Delphi 12 Athens
 
#1

AW: einfaches Drag & Drop und MouseUp

  Alt 13. Jun 2017, 23:19
VCL setzt auf Windows auf.
Wenn das VCL-D&D nicht mit ReleaseCapture dazwischenfunkt, dann bleibt das Verhalten ja so.
Mit SetCapture kann man selber einer oder keiner anderen Komponente den "MausFokus" geben, bzw. der Quellkomponente "wieder" den Fokus verpassen ... falls man damit dann das D&D der VCL nicht stört.

Und natürlich kann man ein Drag&Drop aus selber implementieren, ohne das "uralte" System der VCL zu nutzen.

Oder mit etwas Aufwand könnte man das Drag&Drop vom Windows auch nur programmintern nutzen.
Ein Therapeut entspricht 1024 Gigapeut.

Geändert von himitsu (13. Jun 2017 um 23:22 Uhr)
  Mit Zitat antworten Zitat
Fritzew

Registriert seit: 18. Nov 2015
Ort: Kehl
678 Beiträge
 
Delphi 11 Alexandria
 
#2

AW: einfaches Drag & Drop und MouseUp

  Alt 13. Jun 2017, 23:28
VCL setzt auf Windows auf.
Wenn das VCL-D&D nicht mit ReleaseCapture dazwischenfunkt, dann bleibt das Verhalten ja so.
Mit SetCapture kann man selber einer oder keiner anderen Komponente den "MausFokus" geben, bzw. der Quellkomponente "wieder" den Fokus verpassen ... falls man damit dann das D&D der VCL nicht stört.

Und natürlich kann man ein Drag&Drop aus selber implementieren, ohne das "uralte" System der VCL zu nutzen.
Da gebe ich Dir Recht, nur sollten wir vielleicht mal dem TE mitteilen dass er während dem Drag & Drop nicht auf eine andere Maustaste reagieren kann. Und ich denke nicht dass man SetCapture in dem Zusammenhang überhaupt erwähnen sollte.

Das kann richtig lustig werden... Ich habe hier eine 3D-Mouse mit 12!!! Tasten könnte ein neuer Anwendungsfall werden, mit Taste 1 starten und je nach Taste loslassen anders reagieren.
Fritz Westermann
  Mit Zitat antworten Zitat
Alex_ITA01

Registriert seit: 22. Sep 2003
1.134 Beiträge
 
Delphi 12 Athens
 
#3

AW: einfaches Drag & Drop und MouseUp

  Alt 14. Jun 2017, 08:05
Wieso vertausche ich Source und Sender?

Was ich erreichen will?
Ich habe eine Komponente A und will diese per Drag&Drop auf Komponente B verschieben. Natürlich will ich nicht die Komponente A auf B drauf schieben aber ich will bei dem Drop von B wissen ob der Sender=A war und natürlich auf alle Eigenschaften vom Sender (A) zugreifen. Gleichzeitig soll aber das MouseUp wirklich getriggert werden, wenn ich nur mit der linken oder rechten Maustaste auf Komponente A drücke.

Die Variable StartDragging ist dafür da, da das BeginDrag sofort ein MouseUp feuert aber die Maus ja gar nicht losgelassen wurde. Damit will ich nur sicherstellen, dass es sich in dem MouseUp Event nicht um das Standard-Event des BeginDrag geht.

Soweit verstanden?

Ich will einfach in diesem konkreten Beispiel, das das Label im MouseUp auf die linke und rechte Maustaste reagiert und gleichzeit ein Drag&Drop in die ListBox möglich ist und ich dort einfach die Caption des Labels adde...

Zitat:
Da gebe ich Dir Recht, nur sollten wir vielleicht mal dem TE mitteilen dass er während dem Drag & Drop nicht auf eine andere Maustaste reagieren kann.
Das ist mir klar, ich möchte ja am besten auch erst, dass das Drag&Drop startet, wenn ich die linke Maustaste drücke, gedrückt halte und die Maus verschiebe. Dann ist alles gut. Wenn ich aber die Linke/Rechte Maustaste drücke und sofort wieder loslasse, dann will ich natürlich das normale MouseUp mit der entsprechenden Übergabe der gedrückten Maustaste
Let's fetz sprach der Frosch und sprang in den Mixer
  Mit Zitat antworten Zitat
Benutzerbild von jaenicke
jaenicke

Registriert seit: 10. Jun 2003
Ort: Berlin
9.869 Beiträge
 
Delphi 12 Athens
 
#4

AW: einfaches Drag & Drop und MouseUp

  Alt 14. Jun 2017, 08:39
Das ganze ist im Grunde recht einfach:
Du darfst nicht beim Drücken der Maustaste sofort einen Dragvorgang beginnen, denn das löst sofort das MouseUp aus. Stattdessen musst du das MouseMove benutzen und erst nach einer Bewegung mit gedrückter Maustaste (ggf. mit Toleranz von ein paar Pixeln) den Dragvorgang auslösen.

Außerdem benutzt du in ListBox1DragDrop und ListBox1DragOver wie schon genannt Sender (die Ereignisquelle für die Mausaktion, also die Listbox) statt Source (der Dragquelle, also das Label).

// EDIT:
Sprich:
Delphi-Quellcode:
procedure TForm1.Label1MouseMove(Sender: TObject; Shift: TShiftState; X, Y: Integer);
begin
  if ssLeft in Shift then // ggf. noch beim MouseDown die X- und Y-Koordinaten speichern und hier die Differenz ermitteln
  begin
    StartDragging := True;
    Label1.BeginDrag(False, 8);
    StartDragging := False;
  end;
end;

procedure TForm1.Label1MouseUp(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
begin
  if not StartDragging then
  begin
    if Button = mbRight then
      ShowMessage('mbRight');

    if Button = mbLeft then
      ShowMessage('mbLeft');
  end;
end;

procedure TForm1.ListBox1DragDrop(Sender, Source: TObject; X, Y: Integer);
begin
  if Source is TLabel then
  begin
    ListBox1.Items.Add(TLabel(Source).Caption);
  end;
end;

procedure TForm1.ListBox1DragOver(Sender, Source: TObject; X, Y: Integer;
  State: TDragState; var Accept: Boolean);
begin
  if Source is TLabel then
    Accept := True
  else
    Accept := False;
end;
Sebastian Jänicke
AppCentral

Geändert von jaenicke (14. Jun 2017 um 08:42 Uhr)
  Mit Zitat antworten Zitat
Alex_ITA01

Registriert seit: 22. Sep 2003
1.134 Beiträge
 
Delphi 12 Athens
 
#5

AW: einfaches Drag & Drop und MouseUp

  Alt 14. Jun 2017, 08:46
Oh jetzt sehe ich was ihr meintet mit der Vertauschung. Stimmt habe Sender mit Source vertauscht, mein Fehler.
Ich versuche das mal mit dem MouseMove, dachte es würde für diesen Fall noch "Bordmittel" geben

Danke für deine Änderung, habe Sie erst jetzt gesehen
Let's fetz sprach der Frosch und sprang in den Mixer
  Mit Zitat antworten Zitat
Fritzew

Registriert seit: 18. Nov 2015
Ort: Kehl
678 Beiträge
 
Delphi 11 Alexandria
 
#6

AW: einfaches Drag & Drop und MouseUp

  Alt 14. Jun 2017, 08:59
Aus der Hilfe:
Zitat:
Mit BeginDrag kann das Ziehen eines Steuerelements gestartet werden. Die Methode wird in einer Anwendung nur explizit aufgerufen, wenn die Eigenschaft DragMode des betreffenden Steuerelements den Wert dmManual hat. Bei der Einstellung dmAutomatic wird BeginDrag automatisch aufgerufen.

Wenn der Parameter Immediate true ist, wird dem Mauszeiger die Cursorform der Eigenschaft DragCursor zugewiesen und der Ziehvorgang umgehend gestartet. Hat Immediate den Wert false, wird die Form des Mauszeigers nicht geändert und das Ziehen erst begonnen, wenn der Benutzer den Mauszeiger um die in Threshold angegebene Pixelanzahl verschiebt. Ist Threshold kleiner als 0, wird der Wert aus der Eigenschaft DragThreshold der globalen Variable Mouse gelesen.

Durch Setzen von Immediate auf false kann das Steuerelement Mausklicks entgegennehmen, ohne dass eine Drag&Drop- oder Drag&Dock-Operation begonnen wird.
Es reicht also wenn Du Threshold setzt. Allerdings wird von BeginDrag sofort ein WM_LBUTTONUP an das Label geschickt siehe:

in BeginDrag:

Delphi-Quellcode:
  if csLButtonDown in ControlState then
    begin
      GetCursorPos(P);
      Perform(WM_LBUTTONUP, 0, PointToLParam(ScreenToClient(P)));
    end;
Dadurch wird Dein Flag StartDragging immer true sein im MouseUp.
Fritz Westermann
  Mit Zitat antworten Zitat
Alex_ITA01

Registriert seit: 22. Sep 2003
1.134 Beiträge
 
Delphi 12 Athens
 
#7

AW: einfaches Drag & Drop und MouseUp

  Alt 14. Jun 2017, 09:28
Nicht wenn ich im MouseMove das so mache:

Delphi-Quellcode:
if (ssLeft in Shift) and
   ((Abs(LastPoint.X - X) > 6) or
    (Abs(LastPoint.Y - Y) > 6)) then
begin
  StartDragging := True;
  Label1.BeginDrag(False, 8);
  StartDragging := False;
end;
LastPoint wurde im MouseDown gesetzt.
Damit ist StartDragging nicht immer True im MouseUp
Let's fetz sprach der Frosch und sprang in den Mixer
  Mit Zitat antworten Zitat
Fritzew

Registriert seit: 18. Nov 2015
Ort: Kehl
678 Beiträge
 
Delphi 11 Alexandria
 
#8

AW: einfaches Drag & Drop und MouseUp

  Alt 14. Jun 2017, 09:39
Delphi-Quellcode:
if (ssLeft in Shift) and
   ((Abs(LastPoint.X - X) > 6) or
    (Abs(LastPoint.Y - Y) > 6)) then
begin
  StartDragging := True;
  Label1.BeginDrag(False, 8);
  StartDragging := False;
end;
Ich würde aber in dem Fall
 Label1.BeginDrag(true); aufrufen. Sonst muss der User noch mal um 8 pixel verschieben
Fritz Westermann
  Mit Zitat antworten Zitat
Alex_ITA01

Registriert seit: 22. Sep 2003
1.134 Beiträge
 
Delphi 12 Athens
 
#9

AW: einfaches Drag & Drop und MouseUp

  Alt 14. Jun 2017, 09:41
Eine Frage hätte ich dennoch:
Im Windows kann man ja während man ein Ordner oder ähnliches gedraggt hat (noch nicht losgelassen!) mit der STRG Taste umschalten zwischen verschieben oder kopieren. Das müsste ja dann beim DragDropEvent abgefragt werden können. Wisst ihr wie ich da ran komme an die Info, ob das DragDropEvent mit gedrückter oder nicht gedrückter STRG Taste durchgeführt wurde?

Edit:
Fritzew: Da hast du Recht
Let's fetz sprach der Frosch und sprang in den Mixer
  Mit Zitat antworten Zitat
Antwort Antwort


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 02:41 Uhr.
Powered by vBulletin® Copyright ©2000 - 2025, Jelsoft Enterprises Ltd.
LinkBacks Enabled by vBSEO © 2011, Crawlability, Inc.
Delphi-PRAXiS (c) 2002 - 2023 by Daniel R. Wolf, 2024 by Thomas Breitkreuz