Delphi-PRAXiS - Drag&Drop mit Alphablended funktioniert nicht

Delphi-PRAXiS (https://www.delphipraxis.net/forum.php)

- GUI-Design mit VCL / FireMonkey / Common Controls (https://www.delphipraxis.net/18-gui-design-mit-vcl-firemonkey-common-controls/)

- - Drag&Drop mit Alphablended funktioniert nicht (https://www.delphipraxis.net/163426-drag-drop-mit-alphablended-funktioniert-nicht.html)

Codehunter

28. Sep 2011 14:02

Drag&Drop mit Alphablended funktioniert nicht

Hallo!

Ich hab da ein kleines Problemchen: Ich ziehe aus einer TListView einen Item auf einen TShellTreeView. Code usw. funktioniert alles super. Nur wird bei Win >= XP neben dem Dragcursor noch halbdurchsichtiges Bild des Item aus der Listview angezeigt.

Das sieht zwar ganz nett aus, führt aber im ShellTreeView zu Darstellungsfehlern während man mit gedrückter Mausttaste darüber fährt. Darum möchte ich das halbtransparente Dingsbums einfach abschalten. Nur find ich spontan nichts dazu...

Grüße
Cody

rweinzierl

28. Sep 2011 14:56

AW: Drag&Drop mit Alphablended funktioniert nicht

Hallo

Ob ein Image angezeigt wird sollte man mit csDisplayDragImage beeinflussen können

sender.ControlStyle = sender.ControlStyle - [csDisplayDragImage]

(Vielleicht hilfts beim suchen)

mfg

Reinhold

Codehunter

29. Sep 2011 08:13

AW: Drag&Drop mit Alphablended funktioniert nicht

Seltsam... Mit der Methode muss man ja für jedes erdenkliche Ziel-Control das ControlStyle ändern. So bin ich innerhalb meines Fensters zwar das Transparent-Dingsbums losgeworden, aber zieht man aus dem Fenster heraus, dann erscheint es wieder. Kann man das nicht quellenbezogen abschalten statt zielbezogen?

Alle Zeitangaben in WEZ +1. Es ist jetzt 04:09 Uhr.