Одинаковые действия для однотипных контролов передаче фокуса

[Space]

Подскажите, плиз, у меня куча текстовых полей на форме (не массив), можно ли как-то делать одинаковые действия для них при потере и получения ими фокуса одной процедурой, не используя персональные обработчики потери и получения фокуса этих текстбоксов, например, устанавливать BackColor при перемещении фокуса?

[Twister]

Нет. Только массив.
Как вариант, можно в обработчике события каждого элемента вызывать одну общую процедуру, но гемороя от этого меньше не станет.

[Andrey Fedorov]

Подскажите, плиз, у меня куча текстовых полей на форме (не массив), можно ли как-то делать одинаковые действия для них при потере и получения ими фокуса одной процедурой, не используя персональные обработчики потери и получения фокуса этих текстбоксов, например, устанавливать BackColor при перемещении фокуса?

Можно. Надо один раз написать класс-обработчик данных контролов, и при открытии формы создавать коллекцию, куда добавлять эти классы.

Оно достаточно просто - я даже как-то пример выкладывал...

[zHackLeX]

В случае с BackColor можно проще...
хочешь по таймеру, хочешь - как ещё - просто

Код: Выделить всё


Private oldActiveControl As TextBox
Private Const COLOR_ACTIVE = &HFFFF40
Private Const COLOR_INACTIVE = &HFFFFFF

'... где это писать - сам решай - как удобнее, проще всего таймер
If TypeOf ActiveControl Is TextBox Then 'And ActiveControl.Tag="MyTBGroup" Then
    'Раскомментируй проверку тэга если групп несколько
    If Not(oldActiveControl Is Nothing) Then
        oldActiveControl.BackColor = COLOR_INACTIVE
    End If
    Set oldActiveControl = ActiveControl
    ActiveControl.BackColor = COLOR_ACTIVE
Else
    If Not(oldActiveControl Is Nothing) Then
        oldActiveControl.BackColor = COLOR_INACTIVE
    End If
    Set oldActiveControl = Nothing
End If


Пример прилагаю...