"Vorschau" beim Verschieben von Einträgen in Listbox

[Aurelius]

Hi DPler

im Augenblick verschiebe ich Einträge in der Listbox so:

Delphi-Quellcode:

procedure TfrmPlaylist.lsbPlaylistDragOver(Sender, Source: TObject; X,
  Y: Integer; State: TDragState; var Accept: Boolean);
begin
  if source is TListbox then accept:=true else accept:=false;
end;

procedure TfrmPlaylist.lsbPlaylistDragDrop(Sender, Source: TObject; X,
  Y: Integer);
begin
  lsbPlaylist.Items.Move(lsbPlaylist.ItemIndex,lsbPlaylist.ItemAtPos(point(x,y),true));
end;

Klappt soweit auch. Ich würde aber gerne beim Verschieben noch eine Art Vorschau haben (wie
im Anhang zu sehen, Mauszeiger einfach dazudenken ^^).

[Larsi]

du könntest ja vielleicht einfach dann an den cursor n text dranhängen, indem der eintrag der alten listbox steht!
weiß jetzt auch ehrlich so nicht ganz so wie du das haben willst ???

[ErazerZ]

Nur mal kurz offtopic aber das:
if source is TListbox then accept:=true else accept:=false; schaut so besser aus:
Accept := Source is TListBox; Wollte ich nur mal gesagt haben.

[Larsi]

oder wenn man mit der maus dann auf der anderen listbox kopier gleich den beitrag darein und wenn man dann nicht die linke maustaste wieder los lässt damit der beitrag in der listbox drin ist, dann wird der beitrag halt wieder gelöscht. wenns nicht klar sein sollte frag einfach

[bitsetter]

Hallo,

du möchtest bestimmt das Vorschaubild des zu verschiebenden Eintrages an den Mauszeiger heften.

[Dunkel]

Vielen Dank, bitsetter, für den Code!

Interessant ist vor allem diese Zeile hier:
  TListBox.ControlStyle:= TListBox.ControlStyle + [csDisplayDragImage]; Wusste ich bisher auch noch nicht, just anonther grafisches Schmankerl.

[Aurelius]

Danke schön