drag & drop "halteverbot"-zeichen ausschalten

[zopf]

meine frage:
(betrifft DRAG & DROP)
beim anklicken eines drag-elementes wird bis zum bewegen der maus (und damit der anzeige des dragcursors) eine art "halteverbotsschild" angezeigt (ich glaube cursor nr. -16). wie kann ich das abschalten, oder zumindest das symbol ändern (im idealfall eine eigene bitmap verwenden)?
danke im voraus allen, die sich mühe geben werden!

p.s. "licht am ende des tunnels kann auch ein entgegenkommender zug sein!"

[APP]

Hallo,
vieleicht hilft Dir das weiter:

Using custom cursors vor allem der Text am Ende der Seite scheint vielversprechend ...

Zitat:

You can also set the Cursor and DragCursor properties of a component at design-time using the Object Inspector. The only drawback is that you can't use the constants names (for example crFinger and crPower) but their values (for example 1 and 2).

oder auchCustomized cursors

[zopf]

hi armin,
vielen dank für deine mühe, aber ich suchte leider etwas anderes, wie man verschiedene cursor zuweist und sie wechselt, das weiss ich.
ich wollte dagegen wissen, wie ich das kleine bildchen, was über dem dragelement schwebt (sieht aus wie ein halteverbotsschild) sobald man es mit der maus "anfasst", ausschalten, oder noch besser durch ein eigenes ersetzen kann. es verschwindet zwar, sobald man die maus beginnt zu ziehen, aber das "verkehrsschild" passt halt nicht in jedes programm. (ich will zum beispiel chips für ein roulette ziehen, da passt es nicht in's bild.
hat irgendwas mit TDRagImageList zu tun, weiss nur nicht, wie man die austauscht, geschweigedenn wie man den "anfass-cursor" ausblendet.
wäre für hilfe sehr dankbar, chris!

p.s. "geisterfahrer sind sehr entgegenkommende menschen!"

[APP]

Hallo Chris,

ich bin kein Drag&Drop Profi, aber ich habe vielleicht etwas
brauchbareres für Dich gefunden.

Implementing Professional Drag & Drop In VCL/CLX Applications von Brian Long.
Wenn Du unter "Listing 14: Setting up a drag image list" nachschaust,
zeigt Brian, wie man den No Drag Cursor verändert:

Figure 7: A No Drop drag cursor enhanced by a drag image list
http://www.blong.com/Conferences/Bor...Drop/4114i.gif

Darauf könntest Du aufbauen...

[Sanchez]

Hallo erstmal,

Jedes Objekt, das von TControl abgeleitet wurde hat eine Property 'DragCursor'.
Du kannst jetzt vom zu ziehenden Objekt den DragCursor zuweisen:

Delphi-Quellcode:

Objekt.DragCursor    := crSizeAll;

Ich hoffe das hilft dir weiter

mfg Daniel

[zopf]

vielen dank euch allen, für die schnelle hilfe.
ich konnte das problem mit dem tip von APP lösen.
hoffe auf eine weitere gute zusammenarbeit.
nochmals allen ein dankeschön!!! herzlichst, chris (zopf)