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

名前

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

本文 コンポーネントでいうなら ・TTreeView ・TPopupMenu ・VirtualTreeView(http://www.delphi-gems.com/index.php?option=com_content&task=view&id=12&Itemid=38)※難しくて私は挫折・・・ ・etc. スタートボタンのイメージならばTPopupMenuがいいんですかねぇ。 procedure TForm1.Button1Click(Sender: TObject); begin PopupMenu1.Popup(TButton(Sender).ClientOrigin.X + TButton(Sender).Width, TButton(Sender).ClientOrigin.Y); end; ※表示位置は調整してください。 動的追加はAddメソッドで出来ると思います。