Текущий архив: 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.032 c
