ポップアップメニュー(PopupMenu)の使い方

ポップアップメニューは、マウスの右クリックなどによって現れるメニューです。

フォームにポップアップメニューを追加するには

1. コンポーネントパレットからPopupMenuをフォームにドロップします。
2. フォームのPopupMenuプロパティにドロップしたポップアップメニューの名前(PopupMenu1など)を設定します。
3. ドロップしたポップアップメニューを選んでオブジェクトインスペクタにプロパティを表示させます。
4. Itemsを選んでメニューエディタを表示させます。
5. メニューエディタに必要なメニュー項目を追加します。
6. メニューエディタでメニュー項目をダブルクリックしてイベントハンドラをコードに追加します。
7. エディタでイベントハンドラに具体的なコードを入力します。

メニューエディタ

イベントハンドラの例

procedure TForm1.Test1Click(Sender: TObject);
begin
MessageDlg('PopupMenuのテストです。', mtInformation, [mbOK], 0);
end;

procedure TForm1.Exit1Click(Sender: TObject);
begin
    Close;
end;