Подсветка компонента имеющего фокус ввода

← →
RDA © (2003-06-22 12:25) [0]

На форме несколько различных контролов типа TEdit, TComboBox. Как сделать так чтобы контрол который принимает фокус ввода менял цвет по после выхода востанавливал первоначальный. Можно ли как-то это унифицировать, или необходимо для каждого из них писать в обработке OnEnter, OnExit Компонент.Color:=Цвет.

← →
Юрий Зотов © (2003-06-22 13:04) [1]

Потребуется только два простейших обработчика. Их надо назначить на события OnEnter и OnExit для ВСЕХ нужных контролов.

type
TFriendControl = class(TControl);

procedure TForm1.ControlEnter(Sender: TObject);
begin
TFriendControl(Sender).Color := clBlue
end;

procedure TForm1.ControlExit(Sender: TObject);
begin
TFriendControl(Sender).Color := clWindow
end;

← →
RDA © (2003-06-23 12:02) [2]

>>Юрий Зотов
Большое спасибо. У меня код увеличивался на 200-300 строк, 7-10 форм.

← →
Intell © (2003-06-23 13:06) [3]

Могу ещё посоветовать пакет FlatStyle, там просто указываешь цвета на компоненты. Просто, удобно, красиво.

>>TO RDA
Ну ты даешь :)
Ты не создавай новые процедуры, а просто назначая на это событие уже две готовые. Вполне реально сделать всего 2 процедуры общие на весь проект :)

Подсветка компонента имеющего фокус ввода Найти похожие ветки