![]() |
"Vorschau" beim Verschieben von Einträgen in Listb
Liste der Anhänge anzeigen (Anzahl: 1)
Hi DPler :hi:
im Augenblick verschiebe ich Einträge in der Listbox so:
Delphi-Quellcode:
Klappt soweit auch. Ich würde aber gerne beim Verschieben noch eine Art Vorschau haben (wie
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; im Anhang zu sehen, Mauszeiger einfach dazudenken ^^). |
Re: "Vorschau" beim Verschieben von Einträgen in L
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 ??? |
Re: "Vorschau" beim Verschieben von Einträgen in L
Nur mal kurz offtopic aber das:
Delphi-Quellcode:
schaut so besser aus:
if source is TListbox then accept:=true else accept:=false;
Delphi-Quellcode:
Wollte ich nur mal gesagt haben.
Accept := Source is TListBox;
|
Re: "Vorschau" beim Verschieben von Einträgen in L
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 :)
|
Re: "Vorschau" beim Verschieben von Einträgen in L
Liste der Anhänge anzeigen (Anzahl: 1)
Hallo,
du möchtest bestimmt das Vorschaubild des zu verschiebenden Eintrages an den Mauszeiger heften. |
Re: "Vorschau" beim Verschieben von Einträgen in L
Vielen Dank, bitsetter, für den Code! :thumb:
Interessant ist vor allem diese Zeile hier:
Delphi-Quellcode:
Wusste ich bisher auch noch nicht, just anonther grafisches Schmankerl. :cyclops:
TListBox.ControlStyle:= TListBox.ControlStyle + [csDisplayDragImage];
|
Re: "Vorschau" beim Verschieben von Einträgen in L
Danke schön :thumb:
|
Alle Zeitangaben in WEZ +1. Es ist jetzt 01:24 Uhr. |
Powered by vBulletin® Copyright ©2000 - 2025, Jelsoft Enterprises Ltd.
LinkBacks Enabled by vBSEO © 2011, Crawlability, Inc.
Delphi-PRAXiS (c) 2002 - 2023 by Daniel R. Wolf, 2024 by Thomas Breitkreuz