ActionManager1.AddAction

← →
asd © (2006-01-13 20:57) [0]

Что заполняется в скобках ActionManager1.AddAction(); Привидите, плжалуйста, пример.

← →
asd © (2006-01-14 14:54) [1]

Я нашёл как сделать аналогичную на ActionList:

procedure TForm1.Button1Click(Sender: TObject);
var a : TAction;
b : TToolButton;
begin
a := TAction.Create(nil);
a.ActionList := ActionList1;
a.Hint := inttostr(i);
a.OnExecute := ActionExecute;
b := TToolButton.Create(nil);
b.Parent := ToolBar1;
b.Action := a;
Но как для ActionManager?

inc(i);
Memo1.Lines.Add(a.Name + " " + a.Hint);
end;

← →
asd © (2006-01-15 16:03) [2]

Может кто-нибудь знает ответ на этот вопрос или где можно прочитать про ActionManager?

← →
Gero © (2006-01-15 16:04) [3]

> где можно прочитать про ActionManager?

В справке?

← →
asd © (2006-01-16 16:56) [4]

В мправке и в другой литературе нет. Как по аналогии с вышеперечисленным алгоритмом сгенерировать ActionManager1.AddAction.

← →
asd © (2006-01-17 21:29) [5]

Если неикто не знает ответа, может знает где могут ответить...

← →
Джо © (2006-01-17 21:45) [6]

TActionManager + F1 вот и вся необходимая и, я думаю, достаточная информация.

← →
asd © (2006-01-18 20:54) [7]

Вот именно. Я так и делал, там нету... Народ, там же две строчки написать, в 1 - создание действия в actionmanager, а во 2 - отображение нового действия в ActionMainMenuBar. Буду очень благодарен за код, а то у меня в большой программе не хватает только этого. Вся надежда на вас.

← →
Джо © (2006-01-19 00:39) [8]

> [7] asd © (18.01.06 20:54)

Скопировать сюда кусок из Справки? Мне не сложно. :)

← →
asd © (2006-01-19 18:45) [9]

Скопируй, пожалуйста. Мне срочно этот код нужен. Спасибо

← →
Джо © (2006-01-19 19:06) [10]

TCustomActionManager.AddAction Method

Inserts a new action into an existing actionband.

Class
TCustomActionManager

Syntax

[Delphi] function AddAction(AnAction: TCustomAction; AClient: TActionClient; After: Boolean): TActionClientItem;

Description
AddAction adds an action to an action band. Use this method to insert a new action into an existing actionband. Use FindItemByCaption and FindItemByAction methods to locate the position at which you want to insert the new item.

Related Information
TCustomActionManager.LoadFromStream
TCustomActionManager.FileName

← →
asd © (2006-01-19 22:14) [11]

Да... Я так всё понял... Если понял, то привиди, пожалуйста, пример. А то я уже замаился.

← →
Gero © (2006-01-19 23:06) [12]

> Скопируй, пожалуйста.

А у тебя что, копипаст сломался?

← →
Джо © (2006-01-19 23:27) [13]

> [11] asd © (19.01.06 22:14)
> Да... Я так всё понял... Если понял, то привиди, пожалуйста,
> пример. А то я уже замаился.

В папке Demos есть пример работы с TActionManager в ран-тайм, в том числе, и с его методом AddAction.
Путь к файлу, в котором есть пример использования AddAction:
Demos\ActionBands\main.pas.
В зависимости от версии Делфи этот путь может незначительно меняться, главное, ищи папку ActionBands.

← →
asd © (2006-01-20 15:08) [14]

Спасибо, что помогли.

← →
asd © (2006-01-21 19:43) [15]

procedure TForm1.AddActionActionExecute(Sender: TObject);
var
Item: TActionClientItem;
begin
Item := ActionManager1.FindItemByCaption("&Action1");
if Assigned(Item) then
ActionManager1.AddAction(EditCut1, Item);
end;
Как вставить текст в нужную категорию?
В данном алгоритме идёт поиск существующих действий и их вставка, а я хочу, чтобы пользователь сам создавал эти действия под своим именем.

← →
asd © (2006-01-21 19:44) [16]

А также новые действия не сохранаются. Жду ответа

← →
asd © (2006-01-22 16:00) [17]

Я всё ещё жду...

← →
asd © (2006-01-23 15:34) [18]

Помогите, пожалуйста, это же несложный вопрос.

Поднимай эту ветку с периодичностью раз в месяц.

Теме уже черт знает сколько времени, а я до сих пор не понял, чего вообще нужно добиться...
Вот этого, или чего? И какой смысл в этом?
// На форме компонент TActionManager, TMainMenu, TButton TForm17 = class(TForm) ActionManager1: TActionManager; Button1: TButton; MainMenu1: TMainMenu; procedure Button1Click(Sender: TObject); private procedure OnCloseAction (Sender: TObject); public end; ... procedure TForm17.OnCloseAction(Sender: TObject); begin Close; end; procedure TForm17.Button1Click(Sender: TObject); var Action: TAction; Mi: TMenuItem; begin Action := TAction.Create(ActionManager1); Action.Caption := "Close"; Action.OnExecute := OnCloseAction; // вот что можно "написать в скобках" :) ActionManager1.AddAction(Action,nil); Mi := TMenuItem.Create(MainMenu1); Mi.Action := Action; MainMenu1.Items.Add(Mi); end;

Да, правильно вы меня поняли. Не сложно вам написать алгоритм для
MainMenuBar и как разместить в определённой категории?

Просто я с этим только сейчас столкнулся и прочитать это у меня нет возможности.

Джо, ты мне поможешь?

Кто может написать алгоритм, пожалуйста, помогите.

> . Не сложно вам написать алгоритм для
> MainMenuBar и как разместить в определённой категории?

Алгоритм чего? И что разместить?

Имхо, тут постановкой задачи и не пахнет, а если и запахнет, то мне кажется, что она будет выражаться в стиле а) напишите мне программу или б) объясните мне своими словами то, что написано в Справке.

Я ошибаюсь?

Программа........
И на том спасибо.

ActionManager1.AddAction Найти похожие ветки