業務開始メニューを動的につくりたい。 (ID:29105)

名前

ホームページ(ブログ、Twitterなど)のURL (省略可)

本文

Menuの動的追加ならこんな感じなんだけど・・・

var
    Menu1,Menu2,Menu3 : TMenuItem;
begin
    Menu1 := TMenuItem.Create(Self);
    Menu1.Caption := '販売メニュー(&H)';
    Menu1.OnClick := Button2Click;
    PopupMenu1.Items.Add(Menu1);

Menu1 := TMenuItem.Create(Self);
    Menu1.Caption := '経理メニュー(&K)';
    //Menu1.OnClick := Button2Click;
    PopupMenu1.Items.Add(Menu1);

Menu2 := TMenuItem.Create(Self);
    Menu2.Caption := '日時メニュー(&D)';
    //Menu2.OnClick := Button2Click;
    Menu1.Add(Menu2);

Menu3 := TMenuItem.Create(Self);
    Menu3.Caption := '仕分け入力(&I)';
    Menu3.OnClick := Button2Click;
    Menu2.Add(Menu3);

Menu3 := TMenuItem.Create(Self);
    Menu3.Caption := '仕分け入力チェック表(&C)';
    Menu3.OnClick := Button2Click;
    Menu2.Add(Menu3);

Menu2 := TMenuItem.Create(Self);
    Menu2.Caption := '月次メニュー(&M)';
    Menu2.OnClick := Button2Click;
    Menu1.Add(Menu2);

Menu1 := TMenuItem.Create(Self);
    Menu1.Caption := '給与メニュー(&K)';
    Menu1.OnClick := Button2Click;
    PopupMenu1.Items.Add(Menu1);

←解決時は質問者本人がここをチェックしてください。

戻る