Delphi 7中ActionMainMenuBar、ActionManager的问题！(100分)

chengbin · 2002-11-03

在Delphi 7中，如何用ActionMainMenuBar、ActionManager动态的创建一个二级菜单？ 我想在菜单中创建打开过文件的历史，就像Delphi 7中的file下的Reopen,不知如何做！！ 还有如何创建和ActionMainMenuBar样式一样的popupmenu，如Delphi 7中的右键菜单。 请大家帮忙，谢谢各位了！！！

jh_muse · 2002-11-05

关心

beckzd · 2002-11-05

打开文件的历史记录，应该在属性中可以设置的。你在仔细瞧瞧。

visual_cjiajia · 2002-11-24

不太好做，我用的是：COMBOBOX控件来代替这种效果 http://www.bwkj.net/Bios/Webmanagern.ace

chengbin · 2002-11-24

请高手帮忙！！！！！

大梦 · 2002-11-30

关注

eire · 2003-01-03

有一个这样的例子。  unit main; interface uses   Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,   Dialogs, ActnList, StdActns, ToolWin, ActnMan, ActnCtrls, ActnMenus,   StdCtrls, ImgList, ComCtrls, ExtActns, XPStyleActnCtrls, BandActn,   StdStyleActnCtrls; type   TForm1 = class(TForm)     ActionManager1: TActionManager;     ActionMainMenuBar1: TActionMainMenuBar;     Action1: TAction;     Action2: TAction;     Action3: TAction;     ReopenActionList1: TActionList;     Action4: TAction;     Action5: TAction;     Action6: TAction;     Action7: TAction;     Action8: TAction;     ActionToolBar1: TActionToolBar;     ImageList1: TImageList;     FileOpen1: TFileOpen;     EditCut1: TEditCut;     EditCopy1: TEditCopy;     EditPaste1: TEditPaste;     EditSelectAll1: TEditSelectAll;     EditUndo1: TEditUndo;     EditDelete1: TEditDelete;     RichEditBold1: TRichEditBold;     RichEditItalic1: TRichEditItalic;     RichEditUnderline1: TRichEditUnderline;     RichEditStrikeOut1: TRichEditStrikeOut;     RichEditBullets1: TRichEditBullets;     RichEditAlignLeft1: TRichEditAlignLeft;     RichEditAlignRight1: TRichEditAlignRight;     RichEditAlignCenter1: TRichEditAlignCenter;     SearchFind1: TSearchFind;     SearchFindNext1: TSearchFindNext;     SearchReplace1: TSearchReplace;     SearchFindFirst1: TSearchFindFirst;     FileSaveAs1: TFileSaveAs;     FilePrintSetup1: TFilePrintSetup;     FileRun1: TFileRun;     FileExit1: TFileExit;     RichEdit1: TRichEdit;     CustomizeActionBars1: TCustomizeActionBars;     Action9: TAction;     procedure FormCreate(Sender: TObject);     procedure FileOpen1Accept(Sender: TObject);     procedure ReopenActionExecute(Sender: TObject);   private     { Private declarations }     ReopenMenuItem: TActionClientItem;     OpenToolItem: TActionClientItem;     procedure FindReopenMenuItem(AClient: TActionClient);     procedure FindOpenToolItem(AClient: TActionClient);     procedure UpdateReopenItem(ReopenItem: TActionClientItem);   public     { Public declarations }   end; var   Form1: TForm1; implementation {$R *.dfm} procedure TForm1.FindReopenMenuItem(AClient: TActionClient); begin   // Find the Reopen item by looking at the item caption   if AClient is TActionClientItem then     if Pos('Reopen...', TActionClientItem(AClient).Caption) <> 0 then       ReopenMenuItem := AClient as TActionClientItem end; procedure TForm1.FindOpenToolItem(AClient: TActionClient); begin   // Find the Open item by looking at the item caption   if AClient is TActionClientItem then     if Pos('Open', TActionClientItem(AClient).Caption) <> 0 then       OpenToolItem := AClient as TActionClientItem; end; procedure TForm1.FormCreate(Sender: TObject);   procedure SetupItemCaptions(AnItem: TActionClientItem);   var     I: Integer;   begin     if Assigned(AnItem) then       for I := 0 to AnItem.Items.Count - 1 do         TCustomAction(ReopenActionList1.Actions).Caption :=           Copy(AnItem.Items.Caption, 5, MaxInt);   end; begin   RichEdit1.Align := alClient;   // Find the Reopen... menu item on the ActionMainMenu   ActionManager1.ActionBars.IterateClients(ActionManager1.ActionBars[0].Items,     FindReopenMenuItem);   // Find the Reopen... menu item on the ActionToolBar   ActionManager1.ActionBars.IterateClients(ActionManager1.ActionBars[1].Items,     FindOpenToolItem);   // Set the captions of the actions since they are used to open the file   SetupItemCaptions(ReopenMenuItem);   SetupItemCaptions(OpenToolItem); end; procedure TForm1.FileOpen1Accept(Sender: TObject); var   I: Integer;   Found: Boolean; begin   Found := False;   // If the filename is already in the list then do not add it again   for I := 0 to ReopenActionList1.ActionCount - 1 do     if CompareText(TCustomAction(ReopenActionList1.Actions).Caption,FileOpen1.Dialog.FileName) = 0 then     begin       Found := True;       break;     end;   if not Found then   begin     // Update the Reopen menu...     UpdateReopenItem(ReopenMenuItem);     UpdateReopenItem(OpenToolItem);   end;   // ...then actually open the file   RichEdit1.Lines.LoadFromFile(FileOpen1.Dialog.FileName); end; procedure TForm1.UpdateReopenItem(ReopenItem: TActionClientItem); var   I: Integer; begin   if ReopenItem = nil then      exit;   // Add thew new filename to the beginning of the list and move other items down   for I := ReopenActionList1.ActionCount - 1 downto 0 do     if I = 0 then       TCustomAction(ReopenActionList1.Actions).Caption := FileOpen1.Dialog.FileName     else       TCustomAction(ReopenActionList1.Actions).Caption :=         TCustomAction(ReopenActionList1.Actions[I - 1]).Caption;   // Add new items to the reopen item if necessary   if ReopenItem.Items.Count < ReopenActionList1.ActionCount then     ReopenItem.Items.Add;   // Set the item captions by appending a number for use as the shortcut   // This change will cause them to be streamed which allows us to store the   // filenames when the application is shutdown   for I := 0 to ReopenItem.Items.Count - 1 do   begin     ReopenItem.Items.Action := ReopenActionList1.Actions;     ReopenItem.Items.Caption := Format('&%d: %s', [I,       TCustomAction(ReopenActionList1.Actions).Caption]);   end; end; procedure TForm1.ReopenActionExecute(Sender: TObject); begin   // Set the reopened filename into the FileOpen action and call OnAccept to open the file normally   FileOpen1.Dialog.FileName := (Sender as TCustomAction).Caption;   // Execute the action's OnAccept logic   FileOpen1.OnAccept(nil); end; end.

chengbin · 2003-01-10

接受答案了.

Delphi 7中ActionMainMenuBar、ActionManager的问题！(100分)

chengbin

Unregistered / Unconfirmed

jh_muse

Unregistered / Unconfirmed

beckzd

Unregistered / Unconfirmed

visual_cjiajia

Unregistered / Unconfirmed

chengbin

Unregistered / Unconfirmed

大梦

Unregistered / Unconfirmed

eire

Unregistered / Unconfirmed

chengbin

Unregistered / Unconfirmed

Similar threads