|
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.
|