Скачать: 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 вся ветка

Скачать: CL | DM;



Память: 0.45 MB
Время: 0.012 c