[Delphi] Cambiare il cursore del RichEdit

[DanieleC88]

Il box RTF fornito dalla Microsoft ha un cursore della larghezza di un pixel, mentre io voglio che sia largo due pixel. Il problema e' che l'RTF box ricrea il suo cursore ad ogni volta, e non basta cambiarlo in tutti gli eventi: torna sempre normale (ad esempio tenendo premuto un tasto). C'e' qualcosa che posso fare per cambiarlo definitivamente ?
(uso CreateCaret e ShowCaret)

[verloc]

Prova a cambiare il cursore all' OnActivate della form che contiene il Ritch.

[DanieleC88]

Non basta, ho inserito la chiamata in ogni evento OnQualcosa.

[verloc]

Devi cambiare il cursore nel vettore di cursori appartenente all'oggetto globale Screen.

Screen->Cursors[crMyCustomCursor]=LoadCursor((void*) HInstance,"CURSOR1"); (questo è in c++)

guarda la guida su come caricare un cursore qualsiasi:questo lo devi fare nel costruttore SOSTITUENDO il cursore predefinito del RichText.Invidua il suo nome e lo sostituisci .


non ti sarà difficile tradurre in delfi:

http://www.bcbdev.com/faqs/faq24.htm


Avevo completamente dimenticato come si faceva :)