TPopupMenu/ja: what changed
Revision 2 to 3. Removed lines have a minus sign; added lines have a plus sign.
| Old | New | Line | |
|---|---|---|---|
| 1 | - | ||
| 1 | + | **日本語版メニュー** | |
| 2 | + | --- | |
| 3 | + | [[Main Page/ja|メインページ]] \- [[Lazarus Documentation/ja|Lazarus Documentation日本語版]] \- [[Japanese Localization Notes|翻訳ノート]] \- [[Bug Tracking/ja|日本語障害情報]] | |
| 4 | + | ||
| 5 | + | **TPopupMenu** [](</File:tpopupmenu.png>)はマウスの右ボタンがクリックされるとポップアップするメニューパネルである。 | |
| 2 | 6 | ||
| 3 | - | ||
| 7 | + | これは目に見えないコンポーネントで、即ち、もし[[Component Palette/ja|コンポーネントパレット]]の[[Standard tab/ja|Standardタブ]]から選ばれ、フォームの上に置かれたとき、ランタイムに現れない。その代わり、メニューエディタによって構造定義されたメニューバーが現れる。 | |
| 4 | 8 | ||
| 5 | - | ||
| 9 | + | Menu Editorを見るには、Main Menuアイコンをフォーム上で右クリックする。 | |
| 6 | 10 | ||
| 7 | 11 | ## ポップアップメニューを作る | |
| 8 | 12 | ||
| 9 | - | ||
| 13 | + | 以下の道筋で、[[TForm|Form]]コンポーネントにポップアップメニューの追加の仕方を示す: | |
| 10 | 14 | ||
| 11 | - | ||
| 12 | - | ||
| 13 | - | ||
| 14 | - | ||
| 15 | - | ||
| 16 | - | ||
| 17 | - | ||
| 18 | - | ||
| 19 | - | ||
| 20 | - | ||
| 21 | - | ||
| 22 | - | ||
| 23 | - | ||
| 24 | - | ||
| 25 | - | ||
| 15 | + | * 新しい[[Form Tutorial/ja|GUIアプリケーション]]を作り、[[TImage/ja|TImage]]をそのフォームに挿入する。このため、コンポーネントパレット _Additional_ でTImageを選択し、フォームの上でクリックする。これで _Image1_ の名前でTImageがフォーム上に配置される。 | |
| 16 | + | * オブジェクトインスペクタに移動(_Image1_ であるはずだ)し、 _Align_ プロパティを選択する。隣のコンボボックスで _alClient_ を1列に調節する(Image1はフォームのサイズに調節される)。 | |
| 17 | + | * フォームの上にTPopupMenu(stanndardタブ)を配置する(もし可能なら「Image1」上に、そうすればこれが画像に1つとわかる)。コンポーネント _PopupMenu1_ は(ドロップダウンメニューとコンポーネントの名前の表示と直角に)フォーム上に表示される。 | |
| 18 | + | * 「PopupMenu1」を右クリックすると、ポップアップメニューが現れる。最初の項目 **Menu Editor** をクリック | |
| 19 | + | * _New Item1_ のキャプションでメニューアイテムがすでに作られており、メニューエディタウィンドウで開く。おそらくこれを変更したいだろう、そのためにはクリックし、オブジェクトインスペクタに移動する。 | |
| 20 | + | * オブジェクトインスペクタでMenuItem1から何かふさわしい名前にするためNameプロパティを変更する。これをLoadメニューと呼ぶことにする。そこでNameを**popLoad** とタイプし、エンターを押す。 | |
| 21 | + | * New Item1より、ましなものとしたい、そこでCaptionプロパティに行き**Load** とタイプし、エンターを押す。 | |
| 22 | + | * さらにもう1つの入力項目がある。メニューエディタウインドウに戻り、 _Load_ を右クリックする。ポップアップメニューが現れる。 | |
| 23 | + | * Insert _New Item After_ をクリックすると、 _New Item2_ という名前の新たなメニューが現れる。前の2つのアイテムで説明した通り、この名前を**popStretch** 、キャプションを**Stretched** へとオブジェクトインスペクタで変更する。 | |
| 24 | + | * メニューへの入り口を忘れていることに気づくが、悪いことではない、メニューエディタに戻る。**Load** を右クリックするか、**Insert New Item (after)** をクリック、または**Stretched** で右クリックし、**Insert New Item (before)** をクリックする。 | |
| 25 | + | * キャプションを**Centered** 名前を**popCenter** 変更する。 | |
| 26 | + | * 必要なそれぞれのメニューアイテムが終端で閉じるようにメニューエディタで調節する。 | |
| 27 | + | * すべてのメニューを加えたとき、どのコンポーネントが結び付くべきかまだ設定しなければならない。この場合、これはフォームに最初に配置したTImage、 _Image1_ であるべきである。 | |
| 28 | + | * フォーム上の _Image1_ を選択し、オブジェクトインスペクタのプロパティ**PopupMenu** へ移動する。そこで、隣のコンボボックスの _PopupMenu1_ を選択する。 | |
| 29 | + | * 実行中は画像を右クリックするといつもポップアップメニューが現れるだろう。 | |
| 26 | 30 | ||
| 27 | - | ||
| 31 | + | これで実行中メニューが現れ、ユーザーがメニューをクリックすることが可能となる。これは実際何もしない。何かをするメニューアイテムを作るには、それぞれのメニューについてクリックに反応する[[Event order|events]]を加えなければならない。 | |
| 28 | 32 | ||
| 29 | - | ||
| 33 | + | 以下にオブジェクトインスペクタを用いてメニュークリックイベントの編集の仕方を説明する。 | |
| 30 | 34 | ||
| 31 | 35 | ## 実際に何かをするメニューを作る | |
| 32 | 36 | ||
| 33 | - | ||
| 37 | + | * メニューエディタにもどり、クリックして**Load** メニューアイテムをクリックして選択する。そしてオブジェクトインスペクタウインドウへ移動し、**events** タブを選択する。変えたいイベントだけを変える、それは今、空の _OnClick_ である。もし用いるべき[[Event order|EventHandler]]をすでに持っているなら、それらを使うことができるし、それに応じて選択することもできる、さもなくば、Lazarusで作ることもできる。右側に3つの点があるボタンがある。クリックする。そうすると新しいプロシージャ(新しく生成したイベントハンドラ)がコードの中に生成され、ソーステキストエディタに対する変化が見て取れる。このプロシージャはこのように見えるだろう: | |
| 34 | 38 | ||
| 35 | - | ||
| 39 | + | ``` | |
| 36 | 40 | procedure TForm1.popLoadClick(Sender: TObject); | |
| 37 | - | ||
| 38 | - | ||
| 39 | - | ||
| 41 | + | begin | |
| 42 | + | ||
| 43 | + | end; | |
| 40 | 44 | ``` | |
| 41 | 45 | ||
| 42 | - | ||
| 46 | + | * **begin** と**end** 間にメニューエントリ _Load_ に対するコードを挿入することができる。 | |
| 43 | 47 | ||
| 44 | - | ||
| 48 | + | この場合フォームの上にTOpenDialogコントロールを挿入し、この目的ンために標準ダイアログを使うことができるだろう: | |
| 45 | 49 | ||
| 46 | - | ||
| 50 | + | * そのため、[[TOpenDialog]]コントロールをフォームに入れ(コンポーネントパレット ダイアログ)、その名前は _OpenDialog1_ である。プロシージャを以下に変更する: | |
| 47 | 51 | ||
| 48 | - | ||
| 52 | + | ``` | |
| 49 | 53 | procedure TForm1.popLoadClick(Sender: TObject); | |
| 50 | - | ||
| 51 | - | ||
| 52 | - | ||
| 53 | - | ||
| 54 | - | ||
| 54 | + | begin | |
| 55 | + | if OpenDialog1.Execute then //ファイルが選択された場合のみ | |
| 56 | + | try //try | |
| 57 | + | Image1.Picture.LoadFromFile(OpenDialog1.Filename); //そのファイルを読み込む | |
| 58 | + | except | |
| 59 | + | end; | |
| 55 | 60 | end; | |
| 56 | - | ||
| 57 | 61 | ``` | |
| 58 | 62 | ||
| 59 | - | ||
| 63 | + | * 他のメニューアイテムも同様のプロシージャで、それぞれのイベントハンドラを作り、以下のコードを挿入する: | |
| 60 | 64 | ||
| 61 | - | ||
| 65 | + | ``` | |
| 62 | 66 | procedure TForm1.popStretchClick(Sender: TObject); | |
| 63 | - | ||
| 64 | - | ||
| 65 | - | ||
| 66 | - | ||
| 67 | - | ||
| 68 | - | ||
| 69 | - | ||
| 70 | - | ||
| 71 | - | ||
| 72 | - | ||
| 67 | + | begin | |
| 68 | + | popStretch.Checked := not popStretch.Checked; //マーク/チェック on/off | |
| 69 | + | Image1.Stretch := popStretch.Checked; //Image1 引き伸ばし yes/no | |
| 70 | + | end; | |
| 71 | + | ||
| 72 | + | procedure TForm1.popCenterClick(Sender: TObject); | |
| 73 | + | begin | |
| 74 | + | popCenter.Checked := not popCenter.Checked; //マーク/チェック on/off | |
| 75 | + | Image1.Center := popCenter.Checked; //Image1 中央配置 yes/no | |
| 76 | + | end; | |
| 73 | 77 | ``` | |
| 74 | 78 | ||
| 75 | - | ||
| 79 | + | * これで、このサンプルを`F9`で実行し、右クリックでポップアップメニューが開き、 _Load_ をクリックする。すると選んだ画像が読み込まれる。画像を取り込んだら、他のメニューエントリを試してみよう。 | |
| 76 | 80 | ||
| 77 | 81 | ## 自己ポップアップ | |
| 78 | 82 | ||
| 79 | - | ||
| 83 | + | 特定のコンポーネント、異なるイベントでは右クリックでポップアップを表示させたくない場合があるかもしれない。その時は**`PopupMenu.PopUp`** を実行することができる。 | |
| 80 | 84 | ||
| 81 | - | ||
| 85 | + | 簡単な例: | |
| 82 | 86 | ||
| 83 | - | ||
| 84 | - | ||
| 85 | - | ||
| 87 | + | * 新しい[[Form Tutorial/ja|GUI application/ja]]を作り、そのフォームにTPopupMenu _PopupMenu1_ と[[TButton]] _Button1_ を加える。 | |
| 88 | + | * 新しいメニューエントリ _PopupMenu1_ ([[TPopupMenu|Creating a PopupMenu]]を見ること)。 | |
| 89 | + | * _Button1_ のOnClickイベントを作成し、以下のコードを書く: | |
| 86 | 90 | ||
| 87 | - | ||
| 91 | + | ``` | |
| 88 | 92 | procedure TForm1.Button1Click(Sender: TObject); | |
| 89 | - | ||
| 90 | - | ||
| 91 | - | ||
| 93 | + | begin | |
| 94 | + | PopupMenu1.PopUp; //ポップアップメニューを表示 | |
| 95 | + | end; | |
| 92 | 96 | ``` | |
| 93 | 97 | ||
| 94 | - | ||
| 98 | + | * プログラムを実行すると、ボタンをクリックすることにより、ポップアップメニューが呼ばれる。 | |
| 95 | 99 | ||
| 96 | 100 | ## ポップアップメニューの結果 | |
| 97 | 101 | ||
| 98 | - | ||
| 99 | - | ||
| 100 | - | ||
| 102 | + | 同じポップアップメニューは、ポップアップの呼び出し元を取り戻すため、 _PopupComponent_ を用いて複合コントロールにより使うことができる。 | |
| 103 | + | ``` | |
| 101 | 104 | ... | |
| 102 | - | ||
| 103 | - | ||
| 104 | - | ||
| 105 | - | ||
| 106 | - | ||
| 107 | - | ||
| 108 | - | ||
| 109 | - | ||
| 110 | - | ||
| 111 | - | ||
| 112 | - | ||
| 113 | - | ||
| 114 | - | ||
| 115 | - | ||
| 105 | + | Uses | |
| 106 | + | ... Clipbrd... | |
| 107 | + | ||
| 108 | + | procedure TfrmIniPrevMain.pmnuMenuItem1Click(Sender: TObject); | |
| 109 | + | begin | |
| 110 | + | if pmnuMenuItem1.PopupComponent.ClassType = TMemo then | |
| 111 | + | begin | |
| 112 | + | Clipboard.AsText := TMemo(pmnuClipBoard.PopupComponent).Text; | |
| 113 | + | end; | |
| 114 | + | if pmnuClipBoard.PopupComponent.ClassType = TEdit then | |
| 115 | + | begin | |
| 116 | + | Clipboard.AsText := TEdit (pmnuClipBoard.PopupComponent).Text; | |
| 117 | + | end; | |
| 118 | + | end; | |
| 116 | 119 | ``` | |
| 117 | 120 | ||
| 118 | 121 | ## 以下も参照のこと | |
| 119 | 122 | ||
| 120 | - | ||
| 121 | - | ||
| 123 | + | * [TPopupMenu doc](<http://lazarus-ccr.sourceforge.net/docs/lcl/menus/tpopupmenu.html> "doc:lcl/menus/tpopupmenu.html") | |
| 124 | + | * [[TMainMenu]] | |
| 122 | 125 | ||
| 126 | + | ||
| 127 | + | ||
| 128 | + | [[LCL Components/ja|LCL Components]] Component Tab | Components | |
| 129 | + | ---|--- | |
| 130 | + | [[Standard tab/ja|Standard/ja]] | [[TMainMenu/ja]] • TPopupMenu/ja • [[TButton/ja]] • [[TLabel/ja]] • [[TEdit/ja]] • [[TMemo/ja]] • [[TToggleBox/ja|TToggleBox]] • [[TCheckBox/ja]] • [[TRadioButton/ja]] • [[TListBox/ja]] • [[TComboBox/ja]] • [[TScrollBar/ja]] • [[TGroupBox/ja]] • [[TRadioGroup/ja]] • [[TCheckGroup/ja]] • [[TPanel/ja]] • [[TFrame/ja]] • [[TActionList/ja]] | |
| 131 | + | [[Additional tab|Additional]] | [[TBitBtn/ja]] • [[TSpeedButton/ja]] • [[TStaticText/ja]] • [[TImage/ja]] • [[TShape/ja]] • [[TBevel/ja]] • [[TPaintBox/ja]] • [[TNotebook/ja]] • [[TLabeledEdit/ja]] • [[TSplitter/ja]] • [[TTrayIcon/ja]] • [[TControlBar/ja]] • [[TFlowPanel/ja]] • [[TMaskEdit/ja]] • [[TCheckListBox/ja]] • [[TScrollBox/ja]] • [[TApplicationProperties/ja]] • [[TStringGrid/ja]] • [[TDrawGrid/ja]] • [[TPairSplitter/ja]] • [[TColorBox/ja]] • [[TColorListBox/ja]] • [[TValueListEditor/ja]] | |
| 132 | + | [[Common Controls tab|Common Controls]] | [[TTrackBar]] • [[TProgressBar]] • [[TTreeView]] • [[TListView]] • [[TStatusBar]] • [[TToolBar]] • [[TCoolBar]] • [[TUpDown]] • [[TPageControl]] • [[TTabControl]] • [[THeaderControl]] • [[TImageList]] • [[TPopupNotifier]] • [[TDateTimePicker]] | |
| 133 | + | [[Dialogs tab|Dialogs]] | [[TOpenDialog]] • [[TSaveDialog]] • [[TSelectDirectoryDialog]] • [[TColorDialog]] • [[TFontDialog]] • [[TFindDialog]] • [[TReplaceDialog]] • [[TTaskDialog]] • [[TOpenPictureDialog]] • [[TSavePictureDialog]] • [[TCalendarDialog]] • [[TCalculatorDialog]] • [[TPrinterSetupDialog]] • [[TPrintDialog]] • [[TPageSetupDialog]] | |
| 134 | + | [[Data Controls tab|Data Controls]] | [[TDBNavigator/ja]] • [[TDBText/ja]] • [[TDBEdit/ja]] • [[TDBMemo/ja]] • [[TDBImage/ja]] • [[TDBListBox/ja]] • [[TDBLookupListBox/ja]] • [[TDBComboBox/ja]] • [[TDBLookupComboBox/ja]] • [[TDBCheckBox/ja]] • [[TDBRadioGroup/ja]] • [[TDBCalendar/ja]] • [[TDBGroupBox/ja]] • [[TDBGrid/ja]] • [[TDBDateTimePicker/ja]] | |
| 135 | + | [[Data Access tab|Data Access]] | [[TDataSource/ja]] • [[TCSVDataSet/ja]] • [[TSdfDataSet/ja]] • [[TBufDataset/ja]] • [[TFixedFormatDataSet/ja]] • [[TDbf/ja]] • [[TMemDataset/ja]] | |
| 136 | + | [[System tab|System]] | [[TTimer]] • [[TIdleTimer]] • [[TLazComponentQueue]] • [[THTMLHelpDatabase]] • [[THTMLBrowserHelpViewer]] • [[TAsyncProcess]] • [[TProcessUTF8]] • [[TProcess]] • [[TSimpleIPCClient]] • [[TSimpleIPCServer]] • [[TXMLConfig]] • [[TEventLog]] • [[TServiceManager]] • [[TCHMHelpDatabase]] • [[TLHelpConnector]] | |
| 137 | + | [[Misc tab|Misc]] | [[TColorButton]] • [[TSpinEdit]] • [[TFloatSpinEdit]] • [[TArrow]] • [[TCalendar]] • [[TEditButton]] • [[TFileNameEdit]] • [[TDirectoryEdit]] • [[TDateEdit]] • [[TTimeEdit]] • [[TCalcEdit]] • [[TFileListBox]] • [[TFilterComboBox]] • [[TComboBoxEx]] • [[TCheckComboBox]] • [[TButtonPanel]] • [[TShellTreeView]] • [[TShellListView]] • [[TXMLPropStorage]] • [[TINIPropStorage]] • [[TJSONPropStorage]] • [[TIDEDialogLayoutStorage]] • [[TMRUManager]] • [[TStrHolder]] | |
| 138 | + | [[LazControls tab|LazControls]] | [[TCheckBoxThemed]] • [[TDividerBevel]] • [[TExtendedNotebook]] • [[TListFilterEdit]] • [[TListViewFilterEdit]] • [[TLvlGraphControl]] • [[TShortPathEdit]] • [[TSpinEditEx]] • [[TFloatSpinEditEx]] • [[TTreeFilterEdit]] • [[TExtendedTabControl]] • | |
| 139 | + | [[RTTI tab|RTTI]] | [[TTIEdit]] • [[TTIComboBox]] • [[TTIButton]] • [[TTICheckBox]] • [[TTILabel]] • [[TTIGroupBox]] • [[TTIRadioGroup]] • [[TTICheckGroup]] • [[TTICheckListBox]] • [[TTIListBox]] • [[TTIMemo]] • [[TTICalendar]] • [[TTIImage]] • [[TTIFloatSpinEdit]] • [[TTISpinEdit]] • [[TTITrackBar]] • [[TTIProgressBar]] • [[TTIMaskEdit]] • [[TTIColorButton]] • [[TMultiPropertyLink]] • [[TTIPropertyGrid]] • [[TTIGrid]] | |
| 140 | + | [[SQLdb tab|SQLdb]] | [[TSQLQuery/ja]] • [[TSQLTransaction/ja]] • [[TSQLScript]] • [[TSQLConnector]] • [[TMSSQLConnection]] • [[TSybaseConnection]] • [[TPQConnection]] • [[TPQTEventMonitor]] • [[TOracleConnection]] • [[TODBCConnection]] • [[TMySQL40Connection]] • [[TMySQL41Connection]] • [[TMySQL50Connection]] • [[TMySQL51Connection]] • [[TMySQL55Connection]] • [[TMySQL56Connection]] • [[TMySQL57Connection]] • [[TSQLite3Connection/ja]] • [[TIBConnection]] • [[TFBAdmin]] • [[TFBEventMonitor]] • [[TSQLDBLibraryLoader]] | |
| 141 | + | [[Pascal Script tab|Pascal Script]] | [[TPSScript]] • [[TPSScriptDebugger]] • [[TPSDllPlugin]] • [[TPSImport Classes]] • [[TPSImport DateUtils]] • [[TPSImport ComObj]] • [[TPSImport DB]] • [[TPSImport Forms]] • [[TPSImport Controls]] • [[TPSImport StdCtrls]] • [[TPSCustomPlugin]] | |
| 142 | + | [[SynEdit tab|SynEdit]] | [[TSynEdit]] • [[TSynCompletion]] • [[TSynAutoComplete]] • [[TSynMacroRecorder]] • [[TSynExporterHTML]] • [[TSynPluginSyncroEdit]] • [[TSynPasSyn]] • [[TSynFreePascalSyn]] • [[TSynCppSyn]] • [[TSynJavaSyn]] • [[TSynPerlSyn]] • [[TSynHTMLSyn]] • [[TSynXMLSyn]] • [[TSynLFMSyn]] • [[TSynDiffSyn]] • [[TSynUNIXShellScriptSyn]] • [[TSynCssSyn]] • [[TSynPHPSyn]] • [[TSynTeXSyn]] • [[TSynSQLSyn]] • [[TSynPythonSyn]] • [[TSynVBSyn]] • [[TSynAnySyn]] • [[TSynMultiSyn]] • [[TSynBatSyn]] • [[TSynIniSyn]] • [[TSynPoSyn]] | |
| 143 | + | [[Chart tab|Chart]] | [[TChart]] • [[TListChartSource]] • [[TRandomChartSource]] • [[TUserDefinedChartSource]] • [[TCalculatedChartSource]] • [[TDbChartSource]] • [[TChartToolset]] • [[TChartAxisTransformations]] • [[TChartStyles]] • [[TChartLegendPanel]] • [[TChartNavScrollBar]] • [[TChartNavPanel]] • [[TIntervalChartSource]] • [[TDateTimeIntervalChartSource]] • [[TChartListBox]] • [[TChartExtentLink]] • [[TChartImageList]] | |
| 144 | + | [[IPro tab|IPro]] | [[TIpFileDataProvider]] • [[TIpHtmlDataProvider]] • [[TIpHttpDataProvider]] • [[TIpHtmlPanel]] | |
| 145 | + | [[Virtual Controls tab|Virtual Controls]] | [[TVirtualDrawTree]] • [[TVirtualStringTree]] • [[TVTHeaderPopupMenu]] | |
| 146 | + | ||
| 123 | 147 | --- | |
| 124 | - | ||
| 148 | + | *From the Free Pascal wiki, page "TPopupMenu/ja", as the Internet Archive kept it on 2025-05-16, last changed on 2024-10-03. 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).* |
