Скрытие каретки в RichEdit winapi

Question

Я хотел бы скрыть каретку из RichEdit (50 Вт) с указанным стилем ES_READONLY. Это довольно запутанно для пользователя, когда каретка мигает, и пользователь не может ввести.
Я попытался скрыть каретку, используя функцию HideCaret(),
однако она не работает для меня с помощью следующего кода:

LRESULT CALLBACK ChatMessaegsSubclassProc(HWND hwnd, UINT msg, WPARAM wParam, LPARAM lParam) // Subclassed control 
{ 
    LRESULT ret = CallWindowProc(WndProc_ChatMessages, hwnd, msg, wParam, lParam); 
    switch(msg) 
    { 
    //Also tried with EN_SETFOCUS 
    case WM_SETFOCUS: 
    { 
     ret = CallWindowProc(WndProc_ChatMessages, hwnd, msg, wParam, lParam); 
     HideCaret(ChatMessages); //Returns 5 (Access denied.) 
     break; 
    } 

    //According the documentation: 
    //If your application calls HideCaret five times in a row, 
    //it must also call ShowCaret five times before the caret is displayed. 
    case WM_KILLFOCUS: //The message is called when the RichEdit get focus, however nothing happens. 
    { 
     ret = CallWindowProc(WndProc_ChatMessages, hwnd, msg, wParam, lParam); 
     ShowCaret(ChatMessages); 
     break; 
    } 
    } 
    return ret; 
} 

Answer 1

Вот решение:

LRESULT CALLBACK ChatMessaegsSubclassProc(HWND hwnd, UINT msg, WPARAM wParam, LPARAM lParam) 
{ 
    LRESULT ret = CallWindowProc(WndProc_ChatMessages, hwnd, msg, wParam, lParam); 
    switch(msg) 
    { 
    case WM_LBUTTONDOWN: 
    { 
     HideCaret(ChatMessages); 
     break; 
    } 
    case WM_KILLFOCUS: 
    { 
     ShowCaret(ChatMessages); 
     break; 
    } 
    } 
    return ret; 
} 

Примечание это только работает, когда пользователь вызывает фокус с помощью мыши. Поэтому, если кто-то знает, как правильно с этим справиться, не стесняйтесь отвечать, я буду рад.