Forum: GUI-Design mit VCL / FireMonkey / Common Controls
Delphi
by Alex_ITA01,
14. Jun 2017
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?
...
Forum: GUI-Design mit VCL / FireMonkey / Common Controls
Delphi
by Alex_ITA01,
14. Jun 2017
Nicht wenn ich im MouseMove das so mache:
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;
Forum: GUI-Design mit VCL / FireMonkey / Common Controls
Delphi
by Alex_ITA01,
14. Jun 2017
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...
Forum: GUI-Design mit VCL / FireMonkey / Common Controls
Delphi
by Alex_ITA01,
13. Jun 2017
Ich will keine Dateien irgendwo hin schieben sondern ein Drag Event von einer Komponente A zu einer Kompenente B realisieren und dabei muss A und B jeweils noch auf sein MouseUp reagieren können wenn die Maus auch tatsächlich losgelassen wurde. Dein Beispiel ist glaube ich nicht das was ich möchte. Hat noch jemand eine Idee?
Das mit dem Label und der Listbox ist nur ein Beispiel und könnte...
Forum: GUI-Design mit VCL / FireMonkey / Common Controls
Delphi
by Alex_ITA01,
13. Jun 2017
Hallo,
ich habe schon zum Drag&Drop einiges gelesen und mitbekommen, dass es dann Probleme mit dem MouseUp gibt, wenn man dieses auch benötigt.
type
TForm1 = class(TForm)
Label1: TLabel;
ListBox1: TListBox;
procedure Label1MouseUp(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);