Drag&Drop startet beim Doppelklick automatisch

[Alallart]

Ich hab bisher wenig mit D&D gearbeitet, deshalb finde ich den Fehler nicht. Hier ein Beispiel mit zwei Panelen, die gegenseitig die Caption wechseln. Es funktioniert. Das Problem ist aber, dass wenn ich eines der Panele doppelklicke, ebenfalls der Drag beginnt. Sollte eigentlich nicht. Danach muss ich den Vorgang erst mit ESC wieder abbrechen.

Natürlich greifen beide Panele auf die gleiche Prozeduren.

Delphi-Quellcode:

procedure TForm1.Panel1DblClick(Sender: TObject);
begin
  ShowMessage('Das war ein Doppelklick');
end;

procedure PositionWechseln(Sender, Source: TObject);
var
  Temp: String;
begin
  if (Sender is TPanel) and (Source is TPanel) then
  begin
    Temp := TPanel(Sender).Caption;
    TPanel(Sender).Caption := TPanel(Source).Caption;
    TPanel(Source).Caption := Temp;
  end;
end;

procedure TForm1.Panel1DragDrop(Sender, Source: TObject; X, Y: Integer);
var
  TempName: String;
begin
  if (Source is TPanel) then
    PositionWechseln(Sender, Source);
end;

procedure TForm1.Panel1DragOver(Sender, Source: TObject; X, Y: Integer;
  State: TDragState; var Accept: Boolean);
begin
  if (Source is TPanel) then
    Accept := True;
end;

procedure TForm1.Panel1EndDrag(Sender, Target: TObject; X, Y: Integer);
begin
  if (Target = nil) then
    MessageBeep(0); // Wenn Drag'n'Drop-Operation nicht erfolgreich abeschlossen wurde...
end;

procedure TForm1.Panel1MouseDown(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
begin
  if (Sender is TPanel) then
    if Button = mbLeft then
      TPanel(Sender).BeginDrag(False, 10);
end;

[jaenicke]

Auch bei einem Doppelklick drückst du die Maustaste logischerweise, also landest du auch im MouseDown. Zu dem Zeitpunkt kann Windows ja auch noch nicht wissen, ob du erneut klicken wirst.

Du kannst im MouseUp an der gleichen Stelle den Dragvorgang aber direkt wieder abbrechen oder du stellst DragMode auf automatisch, dann sollte das automatisch richtig laufen.

[Uwe Raabe]

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?

[Stolle58]

Benutze Lieber das Event MouseMove.

So mache Ich das jedenfalls.

Delphi-Quellcode:

procedure TForm1.Panel1MouseMove(Sender: TObject; Shift: TShiftState; X, Y: Integer);
begin
  if Shift = [ssLeft] then
  begin
    BeginDrag(True, 10);
  end;
end;

[Alallart]

Zitat von Uwe Raabe:

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?

Anbei der Quellcode des Beispielprojekts. Um das Problem zu reproduzieren eines der Panele doppelklicken.

[Alallart]

Zitat von Stolle58:

Benutze Lieber das Event MouseMove.

Ich habe es gerade ausprobiert, scheint zu klappen. Bisher keine Probleme.

Danke.

[Uwe Raabe]

So sollte es auch gehen:

Delphi-Quellcode:

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 = [ssLeft]) then
    TPanel(Sender).BeginDrag(False, 10);
end;

Bei einem Doppelklick werden ja auch zwei MouseDown Events ausgelöst. Den zweiten erkennt man mit ssDouble in Shift .