Вопрос PopupMenu

[Janger]

Возможно это странный вопрос, но у меня возникли проблемы с компонентом PopupMenu.
Дело вот в чём, у меня очень много компонентов. (точнее 120 штук)
И для каждого, писать:

PM1122.Checked:=true;

Это как то уж слишком много...
Да и мне бы ещё хотелось что бы при выборе, всплывало пометка, мол "Изменения Сохранены"... И что, мне опять нужно каждый из 120 компонентов проходить по очереди?
В общем, вопрос такой:
====================
Как можно более комфортно и удобнее, ввести все нужные мне значения в каждый элемент PopupMenu?
====================

[саша40]

Был где-то на форуме код к твоей проблеме(изменения свойства компонентов по циклу). Там использовалась функция FindComponent.

[Stilet]

Как можно более комфортно и удобнее, ввести все нужные мне значения в каждый элемент PopupMenu?

А теперь берем себя в руки, набираем волосы в грудь и спокойно по русски рассказываем и описываем ситуацию.
Пока что на этот вопрос можно ответить только одно - в цикле по элементам меню.

[Fahman]

Помню я тоже создал около 300 Form а потом мне сказали что можно создавать динамически... =) ну все приходит с опытом))

[Человек_Борща]

Fahman, дело говорит

ТС изучите компоненты: TActionManager, TActionsList, TActionToolBar, TActionPopupMenu, TactionMainMenu

Необходимость с 100500 PopupMenu сразу отвалится.
Одновременно пользователь может вызвать только 1 контекстное меню. Следовательно, можно использовать всего 1 компонент, меняя его владельца и содержимое динамически.

[MasterofCDM]

Всех приветствую, дабы не создавать лишних тем напишу сюда.

На форме есть несколько компонентов TDateTimePicker и нужно чтобы при нажатии правой клавиши мыши на любой из них, появлялся пункт меню "сегодня" и менялась дата на текущую. Сделать такое достаточно просто, но хочется универсальности, то биж при нажатии на любой из TDateTimePicker обрабатывалась бы одной командой.

Пытался сделать так:

procedure TAddRecF.N1Click(Sender: TObject);
begin
    (Sender as TDateTimePicker).Date := Now;
end;

Выдает ошибку(( Есть ли возможность узнать, кто вызвал процедуру N1Click?

[Toxa]

var
i:integer;
begin
for i := 0 in self.componentcount - 1 do
 begin
  if self.components[i].classname = 'TPopupMenu' then
   (self.components[i] as TPopupMenu).checked := true;
 end;
end;

код писал тут, так что есть ошибки, но суть должна быть понятна

[MasterofCDM]

Спасибо за помощь, но не совсем понятна суть. Зачем мы перебираем компоненты TPopupMenu? Он всего один. Мне нужно узнать, кто вызвал это меню. Если обрабатывать все TDateTimePicker, то как можно узнать какой из них активен?

[Toxa]

Сообщение от MasterofCDM

Спасибо за помощь, но не совсем понятна суть. Зачем мы перебираем компоненты TPopupMenu? Он всего один. Мне нужно узнать, кто вызвал это меню. Если обрабатывать все TDateTimePicker, то как можно узнать какой из них активен?

мой ответ был для ТС, а тебе лучше было создать новую тему, чтобы не путаться в ответах

[min@y™]

Мне нужно узнать, кто вызвал это меню.

а почитать хэлп религия не позволяет или сексуальная ориентация? обязательно надо ковырнуть форум, штоб носом ткнули!