Можно ли отключить курсор в TMemo?
По некоторому событию у меня в рантайме меняется свойство ReadOnly у TMemo. Хотелось бы, чтобы при ReadOnly=true, исчезал также мигающий курсор в TMemo. Можно ли это сделать?
Блин, я - дурачок! Нужно было всего лишь написать
Memo1->Cursor=crNone;
Прошу прощения, если потратили свое время (и деньги) на этот глупый пост.
Memo1->Cursor=crNone;
Прошу прощения, если потратили свое время (и деньги) на этот глупый пост.
Если кому интересно, мне удалось решить эту задачу следующим способом (может быть не самым лучшим):
__fastcall TMyFormulaEdit::TMyFormulaEdit(TComponent* Owner)
: TRichEdit(Owner)
{
WindowProc=WndProc1;
}
void __fastcall TMyFormulaEdit::WndProc1(Messages::TMessage &Message)
{
if ((Message.Msg == WM_SETFOCUS)&& (ReadOnly)) return;
WndProc(Message);
}
Кстати HideCaret тоже работает, можно было и по OnMouseDown сделать HideCaret, но тогда курсор еще успевал один раз мигнуть :)
__fastcall TMyFormulaEdit::TMyFormulaEdit(TComponent* Owner)
: TRichEdit(Owner)
{
WindowProc=WndProc1;
}
void __fastcall TMyFormulaEdit::WndProc1(Messages::TMessage &Message)
{
if ((Message.Msg == WM_SETFOCUS)&& (ReadOnly)) return;
WndProc(Message);
}
Кстати HideCaret тоже работает, можно было и по OnMouseDown сделать HideCaret, но тогда курсор еще успевал один раз мигнуть :)