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;