Форум: "Начинающим";
Текущий архив: 2006.02.12;
Скачать: [xml.tar.bz2];
Вниз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. UseFindItemByCaption
andFindItemByAction
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]Помогите, пожалуйста, это же несложный вопрос.
← →
Gero © (2006-01-23 15:46) [19]Поднимай эту ветку с периодичностью раз в месяц.
← →
Джо © (2006-01-23 15:52) [20]Теме уже черт знает сколько времени, а я до сих пор не понял, чего вообще нужно добиться...
Вот этого, или чего? И какой смысл в этом?
// На форме компонент 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;
← →
asd © (2006-01-23 20:40) [21]Да, правильно вы меня поняли. Не сложно вам написать алгоритм для
MainMenuBar и как разместить в определённой категории?
← →
asd © (2006-01-24 14:05) [22]Просто я с этим только сейчас столкнулся и прочитать это у меня нет возможности.
← →
asd © (2006-01-24 18:33) [23]Джо, ты мне поможешь?
← →
asd © (2006-01-25 22:14) [24]Кто может написать алгоритм, пожалуйста, помогите.
← →
Джо © (2006-01-25 22:23) [25]> . Не сложно вам написать алгоритм для
> MainMenuBar и как разместить в определённой категории?
Алгоритм чего? И что разместить?
Имхо, тут постановкой задачи и не пахнет, а если и запахнет, то мне кажется, что она будет выражаться в стиле а) напишите мне программу или б) объясните мне своими словами то, что написано в Справке.
Я ошибаюсь?
← →
asd © (2006-01-27 20:00) [26]Программа........
И на том спасибо.
Страницы: 1 вся ветка
Форум: "Начинающим";
Текущий архив: 2006.02.12;
Скачать: [xml.tar.bz2];
Память: 0.5 MB
Время: 0.042 c