VPF::Как определить, индекс компонента, на который

Бегемот

Дата 27.4.2005, 22:27 (ссылка)

(нет голосов)

Загрузка ...

Бывалый

Профиль
Группа: Участник
Сообщений: 219
Регистрация: 26.1.2005
Где: На границе Европы и Азии

Репутация: нет
Всего: 3

Всем, привет!
На форме множество различных компонентов.
Мне нужно передавать в функцию индекс Panel'и на которую наведён указатель мыши.
Панелей много. Все обработчики MouseMove всех панелей вешаю на один, в котором и должен быть написан код определения индекса.Как это всё реализовать в Delphi? smile

Вот Бильдеровский код:

Код


void __fastcall TForm1::Panel1MouseMove(TObject *Sender, TShiftState Shift,
      int X, int Y)
{
 TPanel *panel=dynamic_cast<TPanel*>(Sender);
 if(panel)  Function(panel->ComponentIndex);     
}

<Spawn>

Дата 28.4.2005, 04:29 (ссылка)

(нет голосов)

Загрузка ...

Око кары:)

Профиль
Группа: Экс. модератор
Сообщений: 2776
Регистрация: 29.1.2003
Где: Екатеринбург

Репутация: 44
Всего: 64

Код


procedure TForm1.Panel1MouseMove(Sender: TObject; Shift: TShiftState; X,
  Y: Integer);
begin
  Func(TPanel(Sender).ComponentIndex);
end;

--------------------

"Для некоторых людей программирование является такой же внутренней потребностью, подобно тому, как коровы дают молоко, или писатели стремятся писать" - Николай Безруков.

Бегемот

Дата 28.4.2005, 18:24 (ссылка)

(нет голосов)

Загрузка ...

Бывалый

Профиль
Группа: Участник
Сообщений: 219
Регистрация: 26.1.2005
Где: На границе Европы и Азии

Репутация: нет
Всего: 3

<Spawn>, спасибо за помощь! smile

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Delphi: Общие вопросы \| Следующая тема »