メインメニューのメニューアイテムを表示するには？ (ID:23136)

名前

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

本文 こんな風にもできますよ procedure TForm1.FormDblClick(Sender: TObject); var uItem: integer; begin uItem := integer(TrackPopupMenu( MainMenu1.Items[0].Handle, //ポップアップする項目のハンドル TPM_LEFTALIGN or TPM_LEFTBUTTON or TPM_RETURNCMD, Mouse.CursorPos.X, Mouse.CursorPos.Y, 0, Form1.Handle, nil )); PostMessage(Form1.Handle, WM_COMMAND, uItem, 0); //選択されたコマンドをポスト end;