Вопрос по TLabel

← →
Sergei (2003-03-14 09:21) [0]

Здравствуйте
Такой вопрос
Как сделать к примеру ассоциацию TLabel c определенным компонентом что бы при попадание фокус на Контрол сама метка меняла цвет (для быстрого визуалного определения активного контрола) а при потере фокуса изменяла на исходный цвет

Необходмио как-нибудь в общем виде (т.е без привязки к имени TLabel) что бы на каждый TLabel не прописывать один и тот же код ????

← →
GAlexandr (2003-03-14 09:35) [1]

Напиши компонент производный от TLabel и пользуй его хоть сто раз!

← →
Юрий Зотов (2003-03-14 09:37) [2]

1. Каждой метке через ее свойство FocusControl сопоставьте свой контрол. В Caption меток можно использовать амперсанды для прямой навигация по контролам с клавиатуры (Alt+буква).

2. В обработчике OnEnter (одном для всех) напишите:

for i := 0 to ComponentCount - 1 do
if (Components[i] is TLabel) and
(TLabel(Components[i]).FocusControl = Sender) then
begin
TLabel(Components[i]).Font.Color := clRed; // По вкусу
Break
end

3. В обработчике OnExit (одном для всех) напишите то же самое, только присвойте шрифту метки исходный цвет.

← →
Юрий Зотов (2003-03-14 09:42) [3]

> GAlexandr (14.03.03 09:35)
Можете предложить простой механизм обратной связи?

← →
REA (2003-03-14 09:46) [4]

А этот TLabeledEdit.EditLabel.Owner

← →
BillyJeans (2003-03-14 09:49) [5]

procedure FocusControl(Control: TWinControl);

← →
Sergei (2003-03-14 10:14) [6]

> to All
Спасибо всем особенно Юрию Зотову :))

Вопрос по TLabel Найти похожие ветки