掲示板システム
ホーム
アクセス解析
カテゴリ
ログアウト
MainMenu の全てのアイテムを PopupMenu に動的に追加 (ID:41827)
名前
ホームページ(ブログ、Twitterなど)のURL (省略可)
本文
Ctrl+F7 で一つずつ見ていけば解決しました(^^; procedure Tt.Button1Click(Sender: TObject); procedure AddPopUp(Item:TMenuItem;SendMenu:TMenuItem); var i:integer; NewMenu:TMenuItem; begin for i:=0 to Item.Count-1 do begin NewMenu:=TMenuItem.Create(Item); NewMenu.Caption:=Item[i].Caption; NewMenu.OnClick:=Item[i].OnClick; SendMenu.Add(NewMenu); if Item[i].Count>0 then AddPopUp(Item[i],SendMenu); end; end; var i:integer; NewMenu:TMenuItem; begin with PopUpListMenu do begin for i:=Count-1 downto 0 do Items[i].Free; end; with MainMenu do begin for i:=0 to Items.Count-1 do begin NewMenu:=TMenuItem.Create(MainMenu); NewMenu.Caption:=Items[i].Caption; PopUpListMenu.Add(NewMenu); AddPopUp(Items[i],NewMenu); end; end; PopupMenu.Popup(0,0); end; >あらっ，それは大変失礼いたしまた いえ、こちらの情報が少なすぎたせいですので 悪いのは私です 「失礼いたしまた」と言わせてしまってごめんなさいです
←解決時は質問者本人がここをチェックしてください。
更新する
戻る
掲示板システム
Copyright 2021 Takeshi Okamoto All Rights Reserved.