Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2003.03.27;
Скачать: CL | DM;

Вниз

Вопрос по 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
Спасибо всем особенно Юрию Зотову :))



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

Текущий архив: 2003.03.27;
Скачать: CL | DM;

Наверх




Память: 0.47 MB
Время: 0.023 c
7-88255
Spider-Lex
2003-01-27 08:46
2003.03.27
Программное нажатие клавиши


7-88252
Evgeniy_k
2003-02-01 12:44
2003.03.27
Размер TaskBar a


3-87803
Makhanev A.S.
2003-03-04 20:03
2003.03.27
тормозит Grid....


1-87896
Delphi5.01
2003-03-16 09:01
2003.03.27
String to Procedure Name


6-88124
3d[Power]
2003-01-23 08:04
2003.03.27
Sockets, winsock.pas