AGB  ·  Datenschutz  ·  Impressum  







Anmelden
Nützliche Links
Registrieren
Zurück Delphi-PRAXiS Programmierung allgemein GUI-Design mit VCL / FireMonkey / Common Controls Delphi Dem crDrag-Cursor ein Pluszeichen hinzufügen?
Thema durchsuchen
Ansicht
Themen-Optionen

Dem crDrag-Cursor ein Pluszeichen hinzufügen?

Ein Thema von PeterPanino · begonnen am 7. Apr 2009 · letzter Beitrag vom 7. Apr 2009
Antwort Antwort
PeterPanino

Registriert seit: 4. Sep 2004
1.465 Beiträge
 
Delphi 10.4 Sydney
 
#1

Dem crDrag-Cursor ein Pluszeichen hinzufügen?

  Alt 7. Apr 2009, 00:56
Hallo, wie kann man bei einem Drag and Drop Vorgang dem DragCursor crDrag ein Plus-Zeichen hinzufügen? Damit sollte für den Anwender ersichtlich sein, dass das gedraggte Element nicht verschoben sondern kopiert wird.
  Mit Zitat antworten Zitat
mkinzler
(Moderator)

Registriert seit: 9. Dez 2005
Ort: Heilbronn
39.861 Beiträge
 
Delphi 11 Alexandria
 
#2

Re: Dem crDrag-Cursor ein Pluszeichen hinzufügen?

  Alt 7. Apr 2009, 06:39
Erzeuge einen eigenen Cursor, den du dann z.B. als Ressource einbinden und für den Vorgang verwenden kannst
Markus Kinzler
  Mit Zitat antworten Zitat
Benutzerbild von s.h.a.r.k
s.h.a.r.k

Registriert seit: 26. Mai 2004
3.159 Beiträge
 
#3

Re: Dem crDrag-Cursor ein Pluszeichen hinzufügen?

  Alt 7. Apr 2009, 10:57
@mkinzler: die möglichkeit hätte ich an sich auch vorgeschlagen, ABER:

es gibt diesen cursor doch schon von windows aus und ich denke, dass man den schon irgendwie von "dort" (dll oder dergleichen) holen kann. somit hätte man immer den system-cursor. ich denke das wird es wohl eher sein, was du willst, PeterPanino?

ich habe nur leider keinerlei ahnung, wo der stecken sollte...
»Remember, the future maintainer is the person you should be writing code for, not the compiler.« (Nick Hodges)
  Mit Zitat antworten Zitat
Benutzerbild von Mithrandir
Mithrandir
(CodeLib-Manager)

Registriert seit: 27. Nov 2008
Ort: Delmenhorst
2.379 Beiträge
 
#4

Re: Dem crDrag-Cursor ein Pluszeichen hinzufügen?

  Alt 7. Apr 2009, 11:12
Zitat von s.h.a.r.k:
es gibt diesen cursor doch schon von windows
Also, ich habe im Ordner "Cursors" keinen gefunden, der so aussieht. Ansonsten sind in der Unit "Controls" alle Cursor definiert:

Delphi-Quellcode:
const
  crDefault = TCursor(0);
  crNone = TCursor(-1);
  crArrow = TCursor(-2);
  crCross = TCursor(-3);
  crIBeam = TCursor(-4);
  crSize = TCursor(-22);
  crSizeNESW = TCursor(-6);
  crSizeNS = TCursor(-7);
  crSizeNWSE = TCursor(-8);
  crSizeWE = TCursor(-9);
  crUpArrow = TCursor(-10);
  crHourGlass = TCursor(-11);
  crDrag = TCursor(-12);
  crNoDrop = TCursor(-13);
  crHSplit = TCursor(-14);
  crVSplit = TCursor(-15);
  crMultiDrag = TCursor(-16);
  crSQLWait = TCursor(-17);
  crNo = TCursor(-18);
  crAppStart = TCursor(-19);
  crHelp = TCursor(-20);
  crHandPoint = TCursor(-21);
  crSizeAll = TCursor(-22);
Und TCursor ist definiert als:
Delphi-Quellcode:
type
  TCursor = -32768..32767;
  {$NODEFINE TCursor}

  (*$HPPEMIT 'namespace Controls'}*)
  (*$HPPEMIT '{'}*)
  (*$HPPEMIT '#pragma option -b-'*)
  (*$HPPEMIT '  enum TCursor {crMin=-32768, crMax=32767};'}*)
  (*$HPPEMIT '#pragma option -b.'*)
  (*$HPPEMIT '}'*)
米斯蘭迪爾
"In einer Zeit universellen Betruges wird das Aussprechen der Wahrheit zu einem revolutionären Akt." -- 1984, George Orwell
  Mit Zitat antworten Zitat
Frankfurtoder

Registriert seit: 27. Mär 2008
112 Beiträge
 
RAD-Studio 2010 Pro
 
#5

Re: Dem crDrag-Cursor ein Pluszeichen hinzufügen?

  Alt 7. Apr 2009, 11:36
Objektinspektor, DragCursor crMultiDrag... sowas?
Erik
Alles gut?
  Mit Zitat antworten Zitat
PeterPanino

Registriert seit: 4. Sep 2004
1.465 Beiträge
 
Delphi 10.4 Sydney
 
#6

Re: Dem crDrag-Cursor ein Pluszeichen hinzufügen?

  Alt 7. Apr 2009, 11:44
Zitat von s.h.a.r.k:
@mkinzler: die möglichkeit hätte ich an sich auch vorgeschlagen, ABER:

es gibt diesen cursor doch schon von windows aus und ich denke, dass man den schon irgendwie von "dort" (dll oder dergleichen) holen kann. somit hätte man immer den system-cursor. ich denke das wird es wohl eher sein, was du willst, PeterPanino?
Ja, genau!
  Mit Zitat antworten Zitat
PeterPanino

Registriert seit: 4. Sep 2004
1.465 Beiträge
 
Delphi 10.4 Sydney
 
#7

Re: Dem crDrag-Cursor ein Pluszeichen hinzufügen?

  Alt 7. Apr 2009, 11:46
Zitat von Frankfurtoder:
Objektinspektor, DragCursor crMultiDrag... sowas?
Beim crMultiDrag wird bei mir kein Pluszeichen angezeigt, sondern mehrere Kästchen diagonal hintereinander (also die visuelle Entsprechung von Multi).
  Mit Zitat antworten Zitat
Benutzerbild von himitsu
himitsu

Registriert seit: 11. Okt 2003
Ort: Elbflorenz
44.184 Beiträge
 
Delphi 12 Athens
 
#8

Re: Dem crDrag-Cursor ein Pluszeichen hinzufügen?

  Alt 7. Apr 2009, 12:49
Das Andere sind "eigene" Cursor des Explorers (explorer.exe) und verstecken sich denmach in irgendeiner von im genutzten DLLs.
$2B or not $2B
  Mit Zitat antworten Zitat
Benutzerbild von Mithrandir
Mithrandir
(CodeLib-Manager)

Registriert seit: 27. Nov 2008
Ort: Delmenhorst
2.379 Beiträge
 
#9

Re: Dem crDrag-Cursor ein Pluszeichen hinzufügen?

  Alt 7. Apr 2009, 13:20
Also in der Shell32.dll befindet sich ein Drag'n'Drop-Cursor, allerdings nicht der, den Windows standardmäßig hat. Das Control, was zur Anzeige im Explorer genutzt wird, nennt sich "SysListView32". Vielleicht ist das ein Cursor, den nur dieses Control hat?
Miniaturansicht angehängter Grafiken
dnd_cur_123.png  
米斯蘭迪爾
"In einer Zeit universellen Betruges wird das Aussprechen der Wahrheit zu einem revolutionären Akt." -- 1984, George Orwell
  Mit Zitat antworten Zitat
Antwort Antwort


Forumregeln

Es ist dir nicht erlaubt, neue Themen zu verfassen.
Es ist dir nicht erlaubt, auf Beiträge zu antworten.
Es ist dir nicht erlaubt, Anhänge hochzuladen.
Es ist dir nicht erlaubt, deine Beiträge zu bearbeiten.

BB-Code ist an.
Smileys sind an.
[IMG] Code ist an.
HTML-Code ist aus.
Trackbacks are an
Pingbacks are an
Refbacks are aus

Gehe zu:

Impressum · AGB · Datenschutz · Nach oben
Alle Zeitangaben in WEZ +1. Es ist jetzt 22:31 Uhr.
Powered by vBulletin® Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
LinkBacks Enabled by vBSEO © 2011, Crawlability, Inc.
Delphi-PRAXiS (c) 2002 - 2023 by Daniel R. Wolf, 2024 by Thomas Breitkreuz