![]() |
| ||
|
|
Новости |
Поиск |
FAQ |
Статьи |
Книги |
Новости VCL
| | Форумы ЧАТ |
Орешник |
|
| |||
| |||
« предыдущая ветвь | форум | следующая ветвь »
Как отловить изменение ReadOnly у TEdit ?
Prohodil Mimo © (2008-02-15 15:56:00)Есть компонент, наследник от TEdit.
Как можно определить, что у него изменили ReadOnly? Какое сообщение отлавливать?
Нужно для того, что бы во время изменения ReadOnly выставлять Color в соответствующий цвет.
Сергей М. (2008-02-15 16:55:00) [1]см. TAction.OnUpdate
Palladin (2008-02-15 16:18:00) [2]так, а исходники просмотреть?
мне вот буквально 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;