Скачать: CL | DM;

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

← →
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, там просто указываешь цвета на компоненты. Просто, удобно, красиво.

---

← →
stalker780 ©   (2003-06-23 13:58) [4]

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

---

Страницы: 1 вся ветка

Скачать: CL | DM;



Память: 0.45 MB
Время: 0.015 c