Как отловить изменение ReadOnly у TEdit ?

← →
Prohodil Mimo © (2008-02-15 15:56) [0]

Есть компонент, наследник от TEdit.
Как можно определить, что у него изменили ReadOnly? Какое сообщение отлавливать?
Нужно для того, что бы во время изменения ReadOnly выставлять Color в соответствующий цвет.

← →
Palladin © (2008-02-15 16:18) [1]

так, а исходники просмотреть?
мне вот буквально 4 минуты понадобилось отрыть StdCtrls и увидеть
procedure TCustomEdit.SetReadOnly(Value: Boolean); begin if FReadOnly <> Value then begin FReadOnly := Value; if HandleAllocated then SendMessage(Handle, EM_SETREADONLY, Ord(Value), 0); end; end;

см. TAction.OnUpdate

Как отловить изменение ReadOnly у TEdit ? Найти похожие ветки