Delphi - Egyedi kurzor a TEdit-hez

forráskód letöltése
Mellékelt példából megtudhatjuk, hogy miként cserélhetjük le a TEdit komponensben villogó kurzort egy általunk készített, egyedi formájú kurzorra. A mellékelt példaprogram megnyitása előtt a CaretEdit.pas-ban lévő komponenst telepítenie kell a Delphi alá.

A komponenshez új kurzort a Caret property-n keresztül tölthetünk be, mely TBitmap típusú. Az itt betöltött kép elkészítésénél ügyeljünk arra, hogy a színek inverzben jelennek meg.

Ha a Caret-en keresztül nem adunk meg képet, akkor a TEdit eredeti kurzora lesz látható.

A komponens működése egyszerű: abban az esetben, ha van a Caret property-hez rendelve kép, akkor figyeljük azt a két eseményt, mely akkor jön létre, ha a komponens megkapja a fókuszt, illetve elveszti azt. Ekkor a rendelkezésre álló kép alapján létrehozzuk, illetve megszüntetjük az új kurzort.