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

Как узнать что на одной из 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 не спасёт ?

---

← →
Filat ©   (2003-04-24 20:55) [3]

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

---

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

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



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