Ergebnis der Suchanfrage

• Forum: GUI-Design mit VCL / FireMonkey / Common Controls

  Re: drag & drop mit VST und Listbox

    Delphi
    by marabu, 18. Apr 2008
  Moin,
  
  dein Code gehört in die Ereignisbehandlung für ListBox.OnDragDrop, auch für ListBox.OnDragOver solltest du eine Zeile vorsehen.
  
  
  procedure TDemoForm.ListBoxDragOver(Sender, Source: TObject; X, Y: Integer;
  State: TDragState; var Accept: Boolean);
  begin
  Accept := (Source = VST) and Assigned(VST.GetFirstSelected);
  end;