Текущий архив: 2003.08.11;
Скачать: CL | DM;

Вниз

TActionMainMenuBar   Найти похожие ветки 

← →
Егор ©   (2003-07-29 06:04) [0]

Кто знает как работать с TActionMainMenuBar
Конкретно - как создавать мень в Run и Design Time.

---

← →
Zergling ©   (2003-07-29 09:25) [1]

Run-Time

procedure TForm1.Button1Click(Sender: TObject);
var
TmpAction: TAction;
TmpActionClientItem: TActionClientItem;
begin
TmpActionClientItem := ActionMainMenuBar1.ActionClient.Items.Add;
TmpAction := TAction.Create(Form1);
TmpAction.OnExecute := Action1Execute;
// На OnExecute обязательно должнобыть назначено событие иначе ни чего не увидешь
TmpAction.Caption := "Новый";
TmpActionClientItem.Action := TmpAction;
end;

А в Design Time какие проблемы. Кидай ActionManager и используй, хотя можно и без него обойтись. К ActionMainMenuBar назначь ActionManager, а из ActionManager перетаскивай на панель, что тебе нужно.

---

Страницы: 1 вся ветка

Текущий архив: 2003.08.11;
Скачать: CL | DM;

Наверх

Память: 0.46 MB
Время: 0.016 c