Текущий архив: 2004.01.23;
Скачать: CL | DM;
Вниз
D7 PopupMenu и ХР Найти похожие ветки
← →
Прохор (2004-01-13 12:24) [0]Господа, такая проблемка:
в D7 приложение (главное меню и ТулБар) можно
оформить в стиле ХР.
А как оформить в таком же виде PopupMenu?
← →
Прохор (2004-01-13 12:27) [1]Т.е. имеется в виду компоненты
ActionToolBar, ActionMainMenuBar и ActionManager.
← →
Babay © (2004-01-13 13:04) [2]Как -то я уж отвечал на этот вопрос
стандартный попуп наверное тока самостоятельной отрисовкой, но можно вызвать меню из акшинов как попуп только ручками. Я делал так
На форме RichEdit,ActionMainMenuBar и ActionManager. Для рича стандартная менюха Edit потом так
procedure TForm1.RichEdit1MouseUp(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);
Var m:TCustomActionPopupMenu;
begin
if Button=mbRight then begin
m:=TCustomActionPopupMenu.Create(self);
m.ActionClient:=ActionManager1.FindItemByCaption("&Edit");
m.Popup(Left+x+RichEdit1.left ,Top+y+RichEdit1.top);
m.Free;
end;
end;
конечно на правильность подхода не претендую но у меня работает вполне.
Страницы: 1 вся ветка
Текущий архив: 2004.01.23;
Скачать: CL | DM;
Память: 0.47 MB
Время: 0.013 c
