Как убрать повторения.

@Ierehon · Регистрация: 29.06.2011

Author24 — интернет-сервис помощи студентам

Доброго времени суток.

Суть вопроса такова. Есть два одинаковых действия. Например добавить, одно в PopupMenu, другое в MainMenu. Можно написать код и для одного и потом скопировать на второе. Но насколько я знаю есть метод позволяющий написать для одного и одной строкой продублировать для второго. Может кто нибудь подсказать код? заранее спасибо.

@albor · 27.01.2012, 21:14

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

Например добавить, одно в PopupMenu, другое в MainMenu. Можно написать код ..

А напишите и мы посмотрим.. как его можно использовать одной строкой.

@Mawrat · 27.01.2012, 21:27

Как я понял, автор не просит написать код, а хочет, чтобы ему подсказали про механизм централизации действий.

---
Это есть компонент TActionList. - Он расположен на вкладке Standard в палитре компонентов. Этот компонент надо положить на форму. Затем, щёлкнуть по нему правой кнопкой мыши и в его контекстном меню выбрать: "Action List Editor...". - Откроется редактор действий. И в этом редакторе можно создать действия (Action) и обработчики этих действий.
Потом на форму помещаем TMainMenu и (или) TPopupMenu. В этих компонентах каждый пункт меню в инспекторе объектов (F11) в самом верху имеет свойство Action. И через выпадающий список этого свойства можно связать пункт меню с любым действием, которое было создано в TActionList. Таким образом, мы создаём действие и его обработчик один раз и можем связать это действие одновременно с разными пунктами в разных меню.

@Alex_pac · 27.01.2012, 21:27

во вкладке события вместо двойного клика нажмиме на список доступных событий и выберете уже созданное.

@Ierehon · 28.01.2012, 14:25 **[ТС]**

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

во вкладке события вместо двойного клика нажмиме на список доступных событий и выберете уже созданное.
Миниатюры

Да, именно об этом я и говорил. Только как это реализовать программно? Я помню что одной строчкой вроде, А вот через присваивание или просто 1 строкой не помню(.

@Alex_pac · 28.01.2012, 14:49

А вот через присваивание или просто 1 строкой не помню

как это не покажется странным но с процедурами можно обращаться так же как и переменными.

есть специальный тип TNotifyEvent : procedure (Sender: TObject) of Object;

поэтому если в форме form1 объявлена такая процедура, то например можно любому другому компоненту это событие присвоить.

Delphi

1	button2.onclick:=form1.button1Click; // где button1Click уже существующая процедура.

если же требуется избавится от события то просто присваиваем nil
если надо поменять события то дествуем следующим образом

Delphi

var c: TNotifyEvent;
begin
  c:=Button1.OnClick;
  Button1.OnClick:=Button2.OnClick;
  Button2.OnClick:=c;
end;

@Ierehon · 28.01.2012, 15:09 **[ТС]**

Добавлено через 3 минуты

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

Сообщение от Ierehon
Например добавить, одно в PopupMenu, другое в MainMenu. Можно написать код ..
А напишите и мы посмотрим.. как его можно использовать одной строкой.

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

Остальным спасибо что откликнулись.

Одной строчкой.
N8.Click или N8Click(Self)
вместо N8 любое имя компонета на который ссылаемся.

@Ierehon 0 / 0 / 2 Регистрация: 29.06.2011 Сообщений: 130
		1
	Как убрать повторения. 27.01.2012, 18:45. Показов 1146. Ответов 6 Метки нет (Все метки) Доброго времени суток. Суть вопроса такова. Есть два одинаковых действия. Например добавить, одно в PopupMenu, другое в MainMenu. Можно написать код и для одного и потом скопировать на второе. Но насколько я знаю есть метод позволяющий написать для одного и одной строкой продублировать для второго. Может кто нибудь подсказать код? заранее спасибо. 0

@albor 504 / 106 / 16 Регистрация: 01.12.2011 Сообщений: 399
	27.01.2012, 21:14	2
	Сообщение от Ierehon Например добавить, одно в PopupMenu, другое в MainMenu. Можно написать код .. А напишите и мы посмотрим.. как его можно использовать одной строкой. 0

@Mawrat 13104 / 5885 / 1706 Регистрация: 19.09.2009 Сообщений: 8,808
	27.01.2012, 21:27	3
	Как я понял, автор не просит написать код, а хочет, чтобы ему подсказали про механизм централизации действий. --- Это есть компонент TActionList. - Он расположен на вкладке Standard в палитре компонентов. Этот компонент надо положить на форму. Затем, щёлкнуть по нему правой кнопкой мыши и в его контекстном меню выбрать: "Action List Editor...". - Откроется редактор действий. И в этом редакторе можно создать действия (Action) и обработчики этих действий. Потом на форму помещаем TMainMenu и (или) TPopupMenu. В этих компонентах каждый пункт меню в инспекторе объектов (F11) в самом верху имеет свойство Action. И через выпадающий список этого свойства можно связать пункт меню с любым действием, которое было создано в TActionList. Таким образом, мы создаём действие и его обработчик один раз и можем связать это действие одновременно с разными пунктами в разных меню. 1

@Alex_pac 1302 / 708 / 107 Регистрация: 25.05.2011 Сообщений: 2,158 Записей в блоге: 51
	27.01.2012, 21:27	4
	во вкладке события вместо двойного клика нажмиме на список доступных событий и выберете уже созданное. Изображения 1

@Ierehon 0 / 0 / 2 Регистрация: 29.06.2011 Сообщений: 130
	28.01.2012, 14:25 [ТС]	5
	Сообщение от Alex_pac во вкладке события вместо двойного клика нажмиме на список доступных событий и выберете уже созданное. Миниатюры Да, именно об этом я и говорил. Только как это реализовать программно? Я помню что одной строчкой вроде, А вот через присваивание или просто 1 строкой не помню(. 0

@Ierehon 0 / 0 / 2 Регистрация: 29.06.2011 Сообщений: 130
	28.01.2012, 15:09 [ТС]	7
	Добавлено через 3 минуты Сообщение от albor Сообщение от Ierehon Например добавить, одно в PopupMenu, другое в MainMenu. Можно написать код .. А напишите и мы посмотрим.. как его можно использовать одной строкой. Совет на будущее, если вы не поняли о чем речь, вы лучше вежливо уточните. "Фи" очень раздражающий подтекст. Остальным спасибо что откликнулись. Одной строчкой. N8.Click или N8Click(Self) вместо N8 любое имя компонета на который ссылаемся. 0