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 перетаскивай на панель, что тебе нужно.

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