Einzelnen Beitrag anzeigen

eyeless

Registriert seit: 12. Aug 2005
49 Beiträge
 
#1

ALLE standart-cursors ersetzen

  Alt 24. Aug 2005, 22:35
hallo,

ich habe auf meiner form sher viele unterschiedliche elemente.
nun möchte ich die standard-cursors mit meinen eigenen extra-für-dieses-programm-cursors erstzen .. ALLE

ich weis, wie (mit resourcen), funz auch alles prime.

ich wollte die so ersetzen:

Delphi-Quellcode:
Screen.Cursors[crHandPoint]:=LoadCursor(hInstance, 'CURHAND');
Screen.Cursors[crArrow]:=LoadCursor(hInstance, 'CURCUR');
Screen.Cursors[crHelp]:=LoadCursor(hInstance, 'CURHELP');
Screen.Cursors[crIBeam]:=LoadCursor(hInstance, 'CURBEAM');
//usw. ...
so gez aber nicht, nur, wenn ich nun nochmal extra alle im 'object inspector' von 'crDefault' auf das gewünschte umstelle ... ZU AUFWENDIG, für allem, das manche elemente für jeden status andere cursors haben (resize, drag, ...)

wie kann ich nun machen, dass ganz einfach ALLE ersetzt werden und auch bei 'crDefault' in einem edit beim CURBEAM und beim resizen mein CURRESIZE?

mal sehen, ob mir diesmal jemand helfen kann ...

mfg, eyeless
  Mit Zitat antworten Zitat