Top.Mail.Ru
Мастера DELPHI, Delphi programming community Титульная страница Поиск, карта сайта Написать письмо 
| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL |
| Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

« предыдущая ветвь | форум | следующая ветвь »

Как отловить изменение 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;


Наверх

Титульная страница Поиск, карта сайта Написать письмо