TListBox Drag Drop

[API]

Moin

Bei meiner Listbox möchte ich Drag & Drop implementieren. DragMode ist auf dmAutomatic.
Nun wird bei einer Drag-Operation immer das OnClick Ereignis ausgelöst, was es nicht sollte. Wie kann das unterbunden werden?

Delphi-Quellcode:

procedure TfrmMain.ListBoxDragDrop(Sender, Source: TObject; X, Y: integer);
begin
  with Sender as TListBox do
  begin
    // mach was
  end;
end;

procedure TfrmMain.ListBoxDragOver(Sender, Source: TObject; X, Y: integer;
  State: TDragState; var Accept: boolean);
var
  aItem: integer;
begin
  with Sender as TListBox do
  begin
    aItem  := ItemAtPos(Point(X, Y), False);
    Accept := (Source is TListBox) and (aItem <> dragIndex) and (aItem < Items.Count);
    if Accept then
      ItemIndex := aItem;
  end;
end;

[jaenicke]

Das ist bei einer Listbox so, daran wirst du AFAIK nichts ändern können.

Vielleicht wäre die VirtualStringTree etwas für deinen Zweck. Da bekommst du separat ein OnFocusChanged (ich nehme mal an darum geht es dir?), OnClick usw.

[API]

Das ist schade, dass das nicht möglich ist. Möchte für dieses kleine Programm jedoch nicht auf den VST umsteigen, da es schön schlank bleiben sein.
Ich kombiniere das Draggen nun mit der Strg-Taste. Wird diese gedrückt gehalten beim Klicken auf ein Item, wird der Drag-Drop Modus aktiviert.