我的机器上的D6没问题的。代码如下
//Form Source
object Form1: TForm1
Left = 192
Top = 107
Width = 544
Height = 375
Caption = 'Form1'
Color = clBtnFace
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = []
OldCreateOrder = False
PixelsPerInch = 96
TextHeight = 13
object ActionMainMenuBar1: TActionMainMenuBar
Left = 0
Top = 0
Width = 536
Height = 26
ActionManager = ActionManager1
Caption = 'ActionMainMenuBar1'
Font.Charset = GB2312_CHARSET
Font.Color = clMenuText
Font.Height = -11
Font.Name = 'Tahoma'
Font.Style = []
ParentFont = False
Spacing = 0
end
object ActionToolBar1: TActionToolBar
Left = 0
Top = 26
Width = 536
Height = 29
ActionManager = ActionManager1
AllowHiding = True
Caption = 'ActionToolBar1'
HorzSeparator = True
Orientation = boLeftToRight
PersistentHotKeys = False
Spacing = 0
end
object ActionManager1: TActionManager
ActionBars = <
item
Items = <
item
Items = <
item
Action = Action1
Caption = '&Action1'
end
item
Action = Action2
Caption = 'A&ction2'
end
item
Action = Action3
Caption = 'Act&ion3'
end
item
Action = Action4
Caption = 'Acti&on4'
end
item
Action = EditCut1
ImageIndex = 0
ShortCut = 16472
end>
Caption = '&Edit'
end
item
Items = <
item
Action = RichEditBold1
ImageIndex = 31
ShortCut = 16450
end>
Caption = '&Format'
end>
ActionBar = ActionMainMenuBar1
end
item
ActionBar = ActionToolBar1
end>
Left = 248
Top = 112
object Action1: TAction
AutoCheck = True
Caption = 'Action1'
Checked = True
OnExecute = Action1Execute
end
object Action2: TAction
AutoCheck = True
Caption = 'Action2'
Checked = True
OnExecute = Action1Execute
end
object Action3: TAction
Caption = 'Action3'
Enabled = False
end
object Action4: TAction
Caption = 'Action4'
Enabled = False
end
object Action5: TAction
Caption = 'Action5'
end
object Action6: TAction
Caption = 'Action6'
end
object EditCut1: TEditCut
Category = 'Edit'
Caption = 'Cu&t'
Enabled = False
Hint = 'Cut|Cuts the selection and puts it on the Clipboard'
ImageIndex = 0
ShortCut = 16472
end
object RichEditBold1: TRichEditBold
Category = 'Format'
AutoCheck = True
Caption = '&Bold'
Enabled = False
Hint = 'Bold'
ImageIndex = 31
ShortCut = 16450
end
end
object CustomizeDlg1: TCustomizeDlg
StayOnTop = False
Left = 328
Top = 112
end
end
//Pas Source
unit Unit1;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, ActnList, CustomizeDlg, ActnCtrls, ToolWin, ActnMan, ActnMenus,
ExtActns, StdActns;
type
TForm1 = class(TForm)
ActionManager1: TActionManager;
ActionMainMenuBar1: TActionMainMenuBar;
ActionToolBar1: TActionToolBar;
CustomizeDlg1: TCustomizeDlg;
Action1: TAction;
Action2: TAction;
Action3: TAction;
Action4: TAction;
Action5: TAction;
Action6: TAction;
EditCut1: TEditCut;
RichEditBold1: TRichEditBold;
procedure Action1Execute(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form1: TForm1;
implementation
{$R *.dfm}
procedure TForm1.Action1Execute(Sender: TObject);
begin
//ShowMessage('AAAAAAAAAAAAAAAAAAA');
end;
end.
