ALLE standart-cursors ersetzen

[eyeless]

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