Индивидуальный цвет недоступного контрола
 Добавлено: 12.10.2023 15:27:57
Добавлено: 12.10.2023 15:27:57Подскажите, как можно задать контролу, например TEdit, какой-то свой цвет заливки, если ему поставить свойство Enabled:=False;
Т.е. другой цвет заливки фона контрола, не стандартный бледно-серый, при его недоступности к редактированию.
Причем конкретного контрола, а не всех
Добавлено спустя 50 минут 3 секунды:
пока придумал такой финт ушами
покрасил Color своим цветом и повесил обработчик на получение фокуса
			Т.е. другой цвет заливки фона контрола, не стандартный бледно-серый, при его недоступности к редактированию.
Причем конкретного контрола, а не всех

Добавлено спустя 50 минут 3 секунды:
пока придумал такой финт ушами
покрасил Color своим цветом и повесил обработчик на получение фокуса
- Код: Выделить всё
- procedure TForm1.Edit1Enter(Sender: TObject);
 begin
 TEdit(Sender).Parent.SelectNext(TWinControl(Sender),true,true);
 end;


