Как узнать что на одной из TPanel компонент в фокусе или OnEnter?

← →
Filat © (2003-04-24 20:17) [0]

Всем привет!
Столкнулся с проблемой и не получается решить. Может что дельное подскажите. Итак. На форме есть две панели, на каждой из них компоненты. Ниже панелей DBGrid на все оставшееся место на форме. Компоненты одной и второй панели подключены к 2-м разным базам. Так вот надо как то сделать так, чтобы если скажем курсор находится на одном из компонентов левой панели, то DBGrid подключен к одной базе, если курсор на компоненте на правой панели, то DBGrid подключен ко второй базе.
Отдельно обработать OnEnter & OnExit для каждого компонента можно, а нельзя ли это сделать проще, например используя активна или нет панель. На как это связать с компонентами на ней?
Спасибо!

← →
Юрий Зотов © (2003-04-24 20:33) [1]

Назначьте ОДИН общий обработчик OnEnter ВСЕМ компонентам на ОБЕИХ панелях, а в нем:

if TControl(Sender).Parent = Panel1
then Grid.DataSource := DataSource1
else Grid.DataSource := DataSource2;

Обработчик OnExit не нужен.

← →
Skier © (2003-04-24 20:35) [2]

ActiveControl не спасёт ?

Сегодня дома обязательно попробую. Спасибо!

Как узнать что на одной из TPanel компонент в фокусе или OnEnter? Найти похожие ветки