Переменная

← →
А.Брей © (2007-05-20 10:39) [0]

Всеп Здрастье! Есть вопрос.
Имею 30 TPanel и каждая содержет свои данные в области Caption.
Список данных фиксированный для всех панелей.
Для обработки события от мыши над понелью надо произвести вывод в
Caption этой панели не используя лишние переменные и большие обработчики. Вопщем нужна переменная тира: Qwer=:Panel+n(над которой произошло сабытие).

За рание спасибо.

← →
Kolan © (2007-05-20 10:47) [1]

> Имею 30 TPanel и каждая содержет свои данные в области Caption.

Клиника.

> Вопщем нужна переменная тира: Qwer=:Panel+n(над которой
> произошло сабытие).

Анализировать Sender + FindComponent&#133 ?

← →
MBo © (2007-05-20 12:22) [2]

TPanel(Sender).Caption

Или же у каждой панели установить уникальное значение св-ва Tag и идентифицировать по нему в обработчике:

case TPanel(Sender).Tag of ....

Переменная Найти похожие ветки