Deag Drop, Mit TImage ToolBarbutton löschen

**waldforest**

Hallo,
ich experimentiere erstmalig mit Drag and Drop.

Ich würde gerne eine Art Papierkorb proggen.
Mit einem TImage möchte ich per dragDrop das Image auf einen Button im TToolbar ziehen, der dann gelöscht wird.

Habe hier im Forum etwas ähnliches gefunden, bringt mich aber nicht wirklich weiter

TImageEreignisse
OnDragDrop

zusammenfalten · markieren

Delphi-Quellcode:

			procedure TMainForm.imgDeleteDragDrop(Sender, Source: TObject;

                                      X, Y: Integer);

var

  Src, Dst : Integer;

begin

  // Find the source index in the toolbar

  Src := 0;

  while tbrQuickBar.Buttons[Src] <> Source do Inc(Src);

  // The destination is the last button

  Dst := tbrQuickBar.ButtonCount - 1;

  // Place the button to be deleted in the last position

  ShiftButtons(tbrQuickBar, Src, Dst);

  // Free the last button

  with tbrQuickBar.Buttons[Dst] do begin

    StrDispose(PChar(Tag));

    Free;

  end;

end;

procedure TMainForm.imgDeleteDragOver(Sender, Source: TObject;

                                      X, Y: Integer;

                                      State: TDragState;

                                      var Accept: Boolean);

begin

  Accept := (Source is TToolButton);

end;;

Aber irgendwie bekomme ich das Image nicht auf die Toolbar, sprich es passiert nichts.

Wie erhalte ich den Index des TToolButtons, auf den mein Image gedropt wurde ?

Was mach ich da falsch, kann mir jemand einen Tipp geben ?

Deag Drop, Mit TImage ToolBarbutton löschen

Deag Drop, Mit TImage ToolBarbutton löschen

Forumregeln