Форум программистов [Powered by Invision Power Board]

Версия для печати темы
Нажмите сюда для просмотра этой темы в оригинальном формате

Форум программистов > Delphi: Общие вопросы > Динамически создаваемые объекты

Автор: SoWa 16.1.2005, 04:58

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

Автор: <Spawn> 16.1.2005, 05:59

В обработчике двойного клика 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;