D7 PopupMenu и ХР

← →
Прохор (2004-01-13 12:24) [0]

Господа, такая проблемка:
в D7 приложение (главное меню и ТулБар) можно
оформить в стиле ХР.
А как оформить в таком же виде PopupMenu?

← →
Прохор (2004-01-13 12:27) [1]

Т.е. имеется в виду компоненты
ActionToolBar, ActionMainMenuBar и ActionManager.

Как -то я уж отвечал на этот вопрос
стандартный попуп наверное тока самостоятельной отрисовкой, но можно вызвать меню из акшинов как попуп только ручками. Я делал так
На форме 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;
конечно на правильность подхода не претендую но у меня работает вполне.

D7 PopupMenu и ХР Найти похожие ветки