Создание вплывающего меню

April 26, 2010 by admin Комментировать »

clip_image002

Всплывающее меню – это меню, появляющееся по запросу пользователя. По правилам Windows оно визуализируется при нажатии правой кнопки мыши. Всплывающее меню представляет собой совокупность пунктов меню, организованных в прямоугольный набор. Почти всегда всплывающее меню – это контекстно-зависимое меню, т.е. перечень доступных в меню команд изменяется в зависимости от того, в каком месте находился указатель мыши при нажатии правой кнопки. Каждому видимому объекту на экране можно сопоставить свой набор пунктов всплывающего меню.

clip_image004

Delphi обеспечивает создание всплывающего меню своим компонентом PopupMenu из класса TPopupMenu. Создание (конструирование) всплывающего меню производится, также как и главного меню, в дизайнере меню Delphi. Затем свойство PopupMenu интерфейсного компонента, для которого готовилось это меню, связывается с созданным всплывающим меню. Теперь, при работе программы, если пользователь подведет указатель мыши к этому компоненту и щелкнет правой кнопкой мыши, рядом с указателем появится всплывающее меню. В принципе, если это необходимо, для каждого визуального компонента интерфейса можно создать свое контекстное меню.

Исполнение программой команд меню

Как отмечалось выше, конечные пункты меню (главного или всплывающего) – это команды, которые должны выполняться в соответствии с алгоритмом программы. Выбор пользователем любого пункта меню (не только конечного) приводит к возникновению события OnClick, которое можно перехватить, написав свой обработчик этого события. Для этого необходимо наполнить программным кодом метод OnClick соответствующего пункта меню. Сделать это можно несколькими способами. Наиболее простой – выбрать пункт меню из заготовки меню, созданной Delphi в Дизайнере форм. При щелчке мышью на пункте меню Delphi создает пустой прототип обработчика события OnClick в Редакторе кода в виде метода-процедуры с именем, включающем в себя имена формы, пункта меню и слова Click. Например, для пункта Выход меню Файл:

procedure TForm1.ExitClick(Sender: TObject);

begin

end;

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

procedure TForm1.ExitClick(Sender: TObject);

begin

Close;

end;

Оставить комментарий

микросхемы мощности Устройство импульсов питания пример приемника провода витков генератора выходе напряжение напряжения нагрузки радоэлектроника работы сигнал сигнала сигналов управления сопротивление усилитель усилителя усиления устройства схема теория транзистора транзисторов частоты