我以MDI Application Wizard建立一支程式 我想在程式執行時新增畫面 就會在下拉選單Window項目上掛一個選項 請問這事件是那裡處理?我找不到 於是我用另外的辦法 就是處理MDI Child表單的Show

procedure TfmBase.FormShow(Sender: TObject);
var
  ParentForm:TMainForm;
  mi:TMenuItem;
begin
  ParentForm:=Application.MainForm as TMainForm;
  mi:=ParentForm.MainMenu1.Items.Find('&New');
  if assigned(mi) then
    ShowMessage(ShortCutToText(mi.ShortCut));}
//    mi.ShortCut:=TextToShortCut('Ctrl N');
end;

但是使用Find MenuItem卻始終返回nil 請教我要如何才能達到在選單上加掛熱鍵功能? 謝謝各位指導

I think your &New is a submenu? You may want to find it level by level. e.g. for a menu &File|&New (i.e. New menuitem under the File menu item) mi := ParentForm.MainMenu1.Items.Find('&File'); mi := mi.Find('&New');

謝謝william兄 我分二階段去尋找Window選單裡的子項目, 依然是找不到. 我又換另一個方式在MainForm裡擺個timer 去Find MenuItem, 還是找不到, 可能是Win32底層處理的, VCL沒有監控到吧? 因為我去印出MenuItem.Count一直都沒改變. 苦思當中, 不知如何達到需求