随笔 - 2146  文章 - 97 评论 - 11767 trackbacks - 253

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, Menus;

type
  TForm1 = class(TForm)
    procedure FormCreate(Sender: TObject);
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

var
  MyMenu: TMainMenu;
  Item: TMenuItem;

procedure TForm1.FormCreate(Sender: TObject);
var
  Itemd: TMenuItem;
begin
  MyMenu := TMainMenu.Create(Self);
  MyMenu.AutoHotkeys := maManual;

  MyMenu.AutoLineReduction := maAutomatic; {默认会自动隐藏多余的分割线}
  //MyMenu.AutoLineReduction := maManual;  {设定为手动会显示所有分割线}

  Self.Menu := MyMenu;


  Item := TMenuItem.Create(MyMenu);
  Item.Caption := 'AA';                
  MyMenu.Items.Add(Item);

    Itemd := TMenuItem.Create(MyMenu);
    Itemd.Caption := 'A&1';
    Item.Add(Itemd);

    Itemd := TMenuItem.Create(MyMenu);
    Itemd.Caption := '-';               {这是分割线}
    Item.Add(Itemd);

    Itemd := TMenuItem.Create(MyMenu);
    Itemd.Caption := '-';               {这是分割线}
    Item.Add(Itemd);

    Itemd := TMenuItem.Create(Item);
    Itemd.Caption := 'A&2';
    Item.Add(Itemd);

    Itemd := TMenuItem.Create(MyMenu);
    Itemd.Caption := '-';               {这是分割线}
    Item.Add(Itemd);
end;

end.

效果图:


posted on 2008-02-04 13:36  万一  阅读(...)  评论(...编辑  收藏