Forum: GUI-Design mit VCL / FireMonkey / Common Controls
Delphi
by Uwe Raabe,
22. Jan 2024
So sollte es auch gehen:
procedure TForm1.Panel1MouseDown(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
begin
{ bei DblClick enthält Shift noch ein ssDouble, aber auch alles andere außer ssLeft soll ja vermutlich kein Drag auslösen }
if (Sender is TPanel) and (Button = TMouseButton.mbLeft) and (Shift = ) then
TPanel(Sender).BeginDrag(False, 10);
end;
Forum: GUI-Design mit VCL / FireMonkey / Common Controls
Delphi
by Uwe Raabe,
21. Jan 2024
Ich kann das hier nicht reproduzieren. Mit den übergebenen Parametern bei BeginDrag ist das auch zu erwarten. Es muss also noch etwas anderes sein. Kannst du ein Beispielprojekt hier anhängen, damit wir mehr Informationen kriegen?