Sign in Join
Wiki copytemporary

TMainMenu/ja: what changed

Revision 1 to 2. Removed lines have a minus sign; added lines have a plus sign.

OldNewLine
11\>\> [[LCL Components]] \>\> TMainMenu
22
33**TMainMenu** ![](/wiki-images/6/6f/Tmainmenu.png)はフォームでメインメニューを提供する[[Component Palette/ja|コンポーネントパレットの]][[Standard tab/ja|Standardタブからの]]見ることのできないコンポーネントである。
44
55## 概要
66
77フォームを設計するときに様々なメニューアイテムによって選ばれる、ほとんどのウインドウの先頭に現れるメインメニューである。
88
99メニューエディタを見るにはフォームのメインメニューアイコンを右クリックすること。
1010
1111## 約束事
1212
1313*mnu*、*menu*で始まる、あるいはmenuのそのものをメニュー(menu)と名付けるのは一般的な慣習である。サブメニューがそれに含まれるメニューのプリフィクスとともに続く。例えば、「編集(Edit)」にある「切り取り(Cut)」サブメニューはたいてい*mnuEditCut*もしくは、*menuEditCut*と名付けられる。これは今から6か月後に変更する必要が生じたときに、それらを中に入れる仕方の記憶を助け、覚えやすいが、*慣習*であり、強制ではないことに注意すること。しかし、このようにすることは後々変更したり、しばらくコードを見ていないときに、あるいは、書かれたプログラムをメンテナンスしなければならない、誰かほかの人間にとって、おそらくそれが何をしているかを理解する手助けになるだろう。
1414
1515始めてみよう
1616
1717## メニューを作成する
1818
19191. コンポーネントバーからTMainMenuを選び、フォーム上でそれをクリックするが、マウスボタンは離さずに押したまま、箱を描いてマウスボタンを離す。そのコンポーネントがフォームに現れるだろう。これはドロップダウンメニューとデフォルトのコンポーネント名が*MainMenu1*となった四角形が現れるだろう。
20202. もし**MainMenu1**と言う名前が気に食わなければ、オブジェクトインスペクタウィンドウに移動して、よりよいと考えるものにNameプロパティを変更する。ここでは*XMenu*に変更する。Nameプロパティの左の箱に**XMenu**とタイプして、エンターを押す。コンポーネントの名前が変更される。
21213. XMenuを右クリックすると、ポップアップメニューが現れる。ここで、必要なのは最初のセクション、**Menu Editor**である。それをクリックする。
22224. Menu Editorウィンドウが「New Item1」のキャプションを持つ、すでに作られたメニューアイテムが開く。いつも見ている「ファイル 編集 表示 ヘルプ」のトップレベルメニューとなり、おそらくこれを変更したいだろう。そのためにはクリックし、オブジェクトインスペクタに移動する。
23235. オブジェクトインスペクタでNameプロパティをMenuItem1からよりふさわしいものに変更する。これをFileメニューと呼ぶことにする。そこで**mnuFile**とタイピングし、エンターを押すことでこれを変更する。
24-6. New Item1よりも良い名前が欲しいので、Captionプロパティに移動し、**&File**とタイプし、エンターを押す。名前の前のアンパサンド**&**はAltキーと下線が引かれたキーを押すことにより、メニューを開くことのできる*アクセラレータ*である。このメニューに対するキャプションを**<u>F</u>ile**へと変更する。この時点で、1つのトップレベルメニュを加えたことになる。
25-7. Menu Editorウインドウに戻る。<u>F</u>ileをクリックし、次に右クリックする。ポップアップメニューが現れる。*Insert New Item After*をクリックし、*New Item2*という名前の新しいメニューが現れる。2つのアイテムですでに説明したように、オブジェクトインスペクタでその名前を**mnuHelp**、この名前を**mnuHelp**、キャプションを**&Help**に変更する。
26-8. これを<u>F</u>ileの下のメニューアイテムにする。右クリックし、**Create Submenu**をクリックする。ファイルメニューは矢印を持ち、# *New Item2*という名前のサブメニューが現れる。
24+6. New Item1よりも良い名前が欲しいので、Captionプロパティに移動し、**&File**とタイプし、エンターを押す。名前の前のアンパサンド**&**はAltキーと下線が引かれたキーを押すことにより、メニューを開くことのできる*アクセラレータ*である。このメニューに対するキャプションを**File**へと変更する。この時点で、1つのトップレベルメニュを加えたことになる。
25+7. Menu Editorウインドウに戻る。Fileをクリックし、次に右クリックする。ポップアップメニューが現れる。*Insert New Item After*をクリックし、*New Item2*という名前の新しいメニューが現れる。2つのアイテムですでに説明したように、オブジェクトインスペクタでその名前を**mnuHelp**、この名前を**mnuHelp**、キャプションを**&Help**に変更する。
26+8. これをFileの下のメニューアイテムにする。右クリックし、**Create Submenu**をクリックする。ファイルメニューは矢印を持ち、# *New Item2*という名前のサブメニューが現れる。
2727
2828これをそれが行う何かに関連したものに変更する、ここでは「開く」ということにする。オブジェクトインスペクタに移動し、Nameプロパティを**mnuFileOpen**、キャプションを**&Open**に変更する。
2929
30-1. トップレベルメニュー**<u>F</u>ile**と**<u>H</u>elp**の間にまたトップレベルメニューが必要である。**<u>F</u>ile**を右クリックし、**Insert New Item (after)**するか、**<u>H</u>elp**を右クリックし、**Insert New Item (before)**をクリックすることができる。
30+1. トップレベルメニュー**File**と**Help**の間にまたトップレベルメニューが必要である。**File**を右クリックし、**Insert New Item (after)**するか、**Help**を右クリックし、**Insert New Item (before)**をクリックすることができる。
31312. このアイテムのプロパティをオブジェクトインスペクタで**mnuEdit**へ変更する。
32323. 必要なら、それぞれのメニューとサブメニューに応じて上記を繰り返す。
3333
3434これで、すべてが実行時に表示され、ユーザーはメニューをクリックすることができる。これは実際には何もしない。メニューアイテムに何かをさせるときは、クリックされると反応することになっている、それぞれのメニューとサブメニューに[[Event order|eventsを]]加えなければならない。通常はトップレベルメニューは反応しないが、サブメニューは反応する。メニューの反応のさせ方に2つの選択肢があり、メニューの中にイベントを挿入するか、あるいは[[TActionList|TActionListコンポーネントを]]用いることもできる。TActionListを用いる主な理由はもし、ツールバーにアイコンを加えるつもりがあるならば、まず、「ファイル」そして、「開く」、「保存」、「名前をつけて保存」、「閉じる」などのメニューをサブメニューとして持ち、同様にツールバーに「新規」、「開く」、「保存」、「名前をつけて保存」ボタンがあるツールバーを持つことになる。「新規」、「開く」機能を扱う2つのルーチンを書くより、メニューとツールバー双方にTActionListを持つ。TActionListを使う仕方はほかに譲る。当面はオブジェクトエクスプローラでイベントを用いての、メニュークリックを扱う仕方を説明する。
3535
3636## 実際に何かをするメニューを作成する
3737
38-1. Menu Editorウインドウに戻り、**<u>F</u>ile**以下にあるサブメニュー**<u>O</u>pen**をクリックする。オブジェクトインスペクタウインドウに行き、**Events**タブをクリックする。変えたいイベント何もないはOnClickのみである。あると好ましい、存在するイベントハンドラを持っているならば、用いることができるが、それはないため、Lazarusにそれを作らせることができる。3つのボタンの右に3つのドット(...)がある。これをクリックすると、新しいプロシージャがコードの中に生成され、コードウインドウにヴューが切り替わる。これは以下のように見えるだろう。
38+1. Menu Editorウインドウに戻り、**File**以下にあるサブメニュー**Open**をクリックする。オブジェクトインスペクタウインドウに行き、**Events**タブをクリックする。変えたいイベント何もないはOnClickのみである。あると好ましい、存在するイベントハンドラを持っているならば、用いることができるが、それはないため、Lazarusにそれを作らせることができる。3つのボタンの右に3つのドット(...)がある。これをクリックすると、新しいプロシージャがコードの中に生成され、コードウインドウにヴューが切り替わる。これは以下のように見えるだろう。
3939
4040``` pascal
4141procedure TfrmMain.mnuFileOpenClick(Sender: TObject);
4242begin
4343end;
4444```
4545
46-1. **begin**と**end**ステートメントの間にメニューのオープンアクションを書くだろう。これはフォーム上のDaialogs tabから*TOpenDialog*コントロールを配置するかもしれない。同様のことが **<u>S</u>ave**、**Save <u>a</u>s**サブメニューを持つと適用される。
46+1. **begin**と**end**ステートメントの間にメニューのオープンアクションを書くだろう。これはフォーム上のDaialogs tabから*TOpenDialog*コントロールを配置するかもしれない。同様のことが **Save**、**Save as**サブメニューを持つと適用される。
47472. どのようにしてメニューとサブメニューを加えるかについて上で言及した点を繰り返すことになり、それぞれはユーザーによってクリックされる1つ1つについて必要ならばイベントハンドラを作るだろう。
4848
4949## チェックボックスメニュー
5050
5151さて、チェックボックスが欲しくなったかもしれない、ユーザーがクリックするとそれはチェックマークがついたり、消えたりする。これを行う方法を議論する。
5252
53-1. Menu Editorウインドウに移り、**<u>E</u>dit**をクリックする。
54-2. <u>E</u>ditの下にメニューアイテムを作ろう。右クリックし、 **Create Submenu**をクリックし、オブジェクトインスペクタウインドウで、もしすでに選択されていなければ、プロパティタブをクリックする。このサブメニューを**mnuEditPreserve**と名づけキャプションを**P&reserve case**とする(コピーアンドペーストが通常ALT+PとALT+Cを使うので、このサブメニューにはALT+Rを使う。これが「r」の前にアンパサンドを置いた理由である)。
53+1. Menu Editorウインドウに移り、**Edit**をクリックする。
54+2. Editの下にメニューアイテムを作ろう。右クリックし、 **Create Submenu**をクリックし、オブジェクトインスペクタウインドウで、もしすでに選択されていなければ、プロパティタブをクリックする。このサブメニューを**mnuEditPreserve**と名づけキャプションを**P&reserve case**とする(コピーアンドペーストが通常ALT+PとALT+Cを使うので、このサブメニューにはALT+Rを使う。これが「r」の前にアンパサンドを置いた理由である)。
5555
56561. デフォルト値、*チェック(checked)*をFalseにする. もしこのメニューのデフォルト状態がチェックなら、値をダブルクリックしてFalseからTrueに変えること。
57572. **Events**タブを選択して、**Click**プロパティを選び、...ボタンをクリックする。
58583. Lazarus はコードウインドウに切り替わり、このサブメニューに対してClickイベントを生成する。
59594. **begin**と**end**のあいだでには、以下のような一行のみを記入すればよい:
60605. mnuEditPreserve.checked := not mnuEditPreserve.checked ;
61616. これが値をチェックからアンチェックに切り替える。コードの中でこのチェックされたメニューを使うことができるようにするには**`mnuEditPreserve.checked`**を参照すればよい (もしくはメニューの名前が何であれ、プロパティが*checked*のもの)。それはほかのどの[[Boolean]] 値に関しても同様である。
6262
6363## セパレータ
6464
65-時には線で区切られている項目を持つメニューが必要な時がある。例えば、**<u>E</u>dit**メニューは**Cut**、**Copy**、**Paste**サブメニューを持ち、次のサブメニューの前にセパレータラインを持つかもしれない。セパレータラインを作るには、もう1つのサブメニューを作り、キャプションが1つのダッシュ(-)からなるようにすればよい。
65+時には線で区切られている項目を持つメニューが必要な時がある。例えば、**Edit**メニューは**Cut**、**Copy**、**Paste**サブメニューを持ち、次のサブメニューの前にセパレータラインを持つかもしれない。セパレータラインを作るには、もう1つのサブメニューを作り、キャプションが1つのダッシュ(-)からなるようにすればよい。
6666
6767## ショートカット
6868
6969もし望むのであれば、メニューに対して特定のキーの組み合わせを割り当てることができる、以下の手順である:
7070
7171- メニューエディタでキーボードショートカットを割り当てるメニューを選択する。
7272- オブジェクトインスペクタでプロパティ、*ShortCut*に移動し\[...\]ボタンをクリックする。
7373- メニューに望むショートカットを選択できるウインドウが現れる。
7474- メニューのランタイムイベントハンドラはこのショートカットをこのメニューをクリックしたしたかのように呼び出す。
7575
7676## メニューの前の画像
7777
7878もしメニューを視覚的に際立たせたい、あるいは可能なツールバーに対するメニュー項目の光学マッピングを確立したいのなら、メニューの前に画像を表示させることができる。以下の手順が必要である:
7979
8080- [[TForm|フォームに]][[TImageList|イメージリストを]]追加する。これはコンポーネントパレット*Common Controls*で見つけられる。TImageListを選択し、Form上にクリックして配置する。*ImageList1*という名のこれでイメージリストがフォーム上に生成される。これらのイメージリストはメニューの前に表示されるすべてのシンボルや画像を含んでいる。
8181- *ImageList1*を右クリックし、**ImageList Editor**を開く。
8282- メニューに必要なすべての画像をImageListに次々に加える。単にボタン*Add*をクリックし、相応しい画像をいつも通り加える。
8383- ImageListに必要とされるすべての画像をすべての画像を加えたら、\[OK\]ボタンで選択を確認し、ImageList Editorを閉じる。
8484- そして、MainMenuを選択しなければならず、オブジェクトインスペクタでImageListにプロパティ*Images*を設定する。単に隣のコンボボックスでImageList *ImageList1*を選択する。
8585
8686- そして、メニューエディタでメニューを再び開き、画像を得たいメニューを選択する。
8787- メニューからオブジェクトインスペクタの*ImageIndex*プロパティへ移動し隣のコンボボックスに表示されている画像を選択する。
8888- Menu Editorで次のメニューを選択し、それに対応する画像を選択する。など。
8989
9090## 問題: 左側にサブメニューがドロップダウンする(Windows Vista、7、10)
9191
9292もし、プルダウンメニューがメインメニューアイテムの右に並び、サブメニューが左に開いたら、それはWindowsが**Tablet PC Settings**で**Right-handed(右利き)**に設定されている。これはタブレットを用い、画面で記入/押す、でメニューが直接的に表示されるときにおこる。もし右利きなら、メニューを左側に表示したいかもしれない。そうするとメニューは手の下側に現れない。通常のPC操作ではこれをデフォルトで左利きに設定されている。 以下を行うことでこれを確かめることができる:
9393
9494- Window-key + Rを押す。
9595- **shell:::{80F3F1D5-FECA-45F3-BC32-752C152E456E}**を入力しエンターを押す。
9696- **Other(その他)**タブに移動する。
9797- デフォルトが**Left-handed(左利き)**に設定されるべきで、メニューが右に現れるようになっており、さもなくば左に現れる。
9898- 注意: 設定にかかわらずサブメニューの矢印はそれでもメニューの右側に現れるだろう。
9999
100100## ランタイムを作成する
101101
102102ランタイムにTMainMenuを作るためには、フォームの所有者をTMainMenuに指定するべきである。
103103
104104``` pascal
105105 mnuMainMain = TMainMenu.Create(Form1);
106106```
107107
108108(注意、親を指定することは不要であり、アプリケーションを所有者として指定することは望んだ効果が得られない)
109109
110110## 以下も参照のこと
111111
112112- [[doc:lcl/menus/tmainmenu.html|TMainMenu doc]]
113113- [[TPopupMenu]]
114114- [[TActionList]]
115115
116116---
117117*From the Free Pascal wiki, page "TMainMenu/ja", as it stood on 2024-03-20 after a change by Ariben, out of the wiki's dump of 2024-05-26. Copyright stays with the author who wrote it, according to the old wiki's [[Licensing]] page. If you have concerns about this material, [message the admin](/wiki-contact).*

Back to history