假設我要從MainMenu1的功能表上 開啟MDI視窗Form1 並執行裡面的按鈕動作 procedure TForm1.SpeedButton15Click(Sender: TObject); 是否可行? 盼那位先見指導一下, 謝謝!!

引言: 假設我要從MainMenu1的功能表上 開啟MDI視窗Form1 並執行裡面的按鈕動作 procedure TForm1.SpeedButton15Click(Sender: TObject); 是否可行? 盼那位先見指導一下, 謝謝!!

當然可以啊~不過我搞不清楚你的問題在那裡 -- 聰明的人，喜歡猜心；雖然每次都猜對了，卻失去了自己的心 傻氣的人，喜歡給心；雖然每次都被笑了，卻得到了別人的心

因為版面不夠用, 元件已經擺滿了(使用者要求字要大點), 所以只好動到功能表上了

你好： 你的意思是要按 MainMenu 上的按鍵後，接著打開新視窗並執行視窗上的 Button 嗎? 如果是的話請你在 MainMenu 的任一 Item 上作如下的程式碼既可。希望對你有幫助

1. MDI Child 中 放一 TMainMenu 2. 加入MenuItem 及你要做的動作 3. 在 MainForm 的 Menu 編好頂層(File, Edit 那層) MenuItem 的 Group Index, 留空一些編號給 Child 的 Menu 插入 4. 在 Child 的 MainMenu 的頂層設好 Group Index (第三點留空的) 5. 這樣 Child 開啟時便會自動把自己的 MainMenu 結合在 MainForm 的 MainMenu 及以 GroupIndex 來排好位置了 另建議你用 TActionList 可將某一動作指給 MenuItem 及 ToolButton 的 Action 屬性不用重覆設定。 發表人 - Justmade 於 2003/06/19 11:43:31

感謝您的回答。 Form1中已經有按鈕SpeedButton10Click(Sender: TObject); 功能表中選定執行的程式如下： procedure TMainForm.N3Click(Sender: TObject); begin If Form1 = Nil then begin Form1 := TForm1.Create (Self); end; Form1.FormStyle:=fsMDIChild; Form1.Show; Form1.Caption := '個人院訊重複姓名查詢'; Form1.WindowState:=wsMaximized; Form1.SpeedButton10Click; end; 但Compiler時無法通過 Form1.SpeedButton10Click; (這個方法曾試過不能用) 出現錯誤訊息 [Error] CCPM_P01.PAS(147): Not enough actual parameters [Fatal Error] MDIAPP.dpr(11): Could not compile used unit 'CCPM_P01.PAS' 請問會是那裡出問題？

你好： 你該呼叫 Button 的 Click 事件。 Button1.Click;

引言: 你好： 你該呼叫 Button 的 Click 事件。 Button1.Click;

對不起，不太瞭解您的意思，您是按鈕產生的動作嗎？為什麼改成底下還是不行？ procedure TMainForm.N3Click(Sender: TObject); begin If Form1 = Nil then begin Form1 := TForm1.Create (Self); end; Form1.FormStyle:=fsMDIChild; Form1.Show; Form1.Caption := '個人院訊重複姓名查詢'; Form1.WindowState:=wsMaximized; Form1.Button10.Click; end;

成功了，改成 Form1.SpeedButton10.Click; 即可，感謝大家的協助。