メニューの項目のプロパティにアクセスする例としてＳＤＩアプリを
使います。

                                 準備
  ファイルメニューで新規作成を指定し新規作成ダイアログを表示させ
プロジェクトタブをクリックしＳＤＩアプリケーションを指定し、適当
なフォルダーにコピーさせ、プロジェクトを開きます。

フォームにメモコンポーネントを置きオブジェクト  インスペクタで
ＦｉｌｅＭｅｎｕ：ＴＭｅｎｕＩｔｅｍを選択します。
イベントの OnClickに下記のコードを追加して下さい。

procedure TSDIAppForm.FileMenuClick(Sender: TObject);
begin
  SaveItem.Enabled := Memo1.Modified;
end;

  これは、ファイル（Ｆ）の部分をクリックすると呼び出される
イベントです。ここでは、ファイル／保存メニューの Enabled
プロパティーに、メモコンポのＭｏｄｉｆｉｅｄプロパティの内容
を書き込み変更された場合に限り保存項目が選択可能になります。

Original document by 青木　栄        氏 ID:(CXC05164)

ここにあるドキュメントは NIFTY SERVEの Delphi Users' Forum の16番会議室「玉石混淆みんなで作るSample蔵」に投稿されたサンプルです。これらのサンプルはボーランド株式会社がサポートする公式のものではありません。また、必ずしも動作が検証されているものではありません。これらのサンプルを使用したことに起因するいかなる損害も投稿者、およびフォーラムスタッフはその責めを負いません。使用者のリスクの範疇でご使用下さい。