VPF::Динамически создаваемые объекты

SoWa

Дата 16.1.2005, 04:58 (ссылка)

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

Загрузка ...

Харекришна

Профиль
Группа: Комодератор
Сообщений: 2422
Регистрация: 18.10.2004

Репутация: 2
Всего: 74

Объясняю вопрос на примере:
Моя программа динамически создает много компонентов JvTrayIcon.
Допустим, что все они имеют свою иконку в трее. И на одной из этих иконок произошел двойной щелчок. Как мне определить, на каком именно компоненте он произошел.
P.S. Индексы у всех разные.

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

Всем добра smile

<Spawn>

Дата 16.1.2005, 05:59 (ссылка)

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

Загрузка ...

Око кары:)

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

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

В обработчике двойного клика Sender будет экземпляром TjvTrayIcon, по которому произошел двойной клик, т.е.

Код


procedure TForm1.FormCreate(Sender: TObject);
begin
  with TjvTrayIcon.Create(Self) do
  begin
    OnDblClick := OnjvTrayIconDblClick;
    Name := 'jvTrayIconName';
    Active := True;
  end;
end;

procedure TForm1.OnjvTrayIconDblClick(Sender: TObject;
  Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
begin
  ShowMessage(TjvTrayIcon(Sender).Name);
end;

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

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

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