MainMenu開啟Form1並執行裡面的程式 |
答題得分者是:ha0009
|
jawtair
一般會員 ![]() ![]() 發表:30 回覆:92 積分:24 註冊:2003-04-26 發送簡訊給我 |
|
Jasonwong
版主 ![]() ![]() ![]() ![]() ![]() ![]() 發表:49 回覆:931 積分:581 註冊:2006-10-27 發送簡訊給我 |
引言: 假設我要從MainMenu1的功能表上 開啟MDI視窗Form1 並執行裡面的按鈕動作 procedure TForm1.SpeedButton15Click(Sender: TObject); 是否可行? 盼那位先見指導一下, 謝謝!!當然可以啊~不過我搞不清楚你的問題在那裡 -- 聰明的人,喜歡猜心;雖然每次都猜對了,卻失去了自己的心 傻氣的人,喜歡給心;雖然每次都被笑了,卻得到了別人的心
------
聰明的人,喜歡猜心;雖然每次都猜對了,卻失去了自己的心 傻氣的人,喜歡給心;雖然每次都被笑了,卻得到了別人的心 |
jawtair
一般會員 ![]() ![]() 發表:30 回覆:92 積分:24 註冊:2003-04-26 發送簡訊給我 |
|
ha0009
版主 ![]() ![]() ![]() ![]() ![]() ![]() 發表:16 回覆:507 積分:639 註冊:2002-03-16 發送簡訊給我 |
|
Justmade
版主 ![]() ![]() ![]() ![]() ![]() ![]() 發表:94 回覆:1934 積分:2030 註冊:2003-03-12 發送簡訊給我 |
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
|
jawtair
一般會員 ![]() ![]() 發表:30 回覆:92 積分:24 註冊:2003-04-26 發送簡訊給我 |
感謝您的回答。
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' 請問會是那裡出問題?
|
ha0009
版主 ![]() ![]() ![]() ![]() ![]() ![]() 發表:16 回覆:507 積分:639 註冊:2002-03-16 發送簡訊給我 |
|
jawtair
一般會員 ![]() ![]() 發表:30 回覆:92 積分:24 註冊:2003-04-26 發送簡訊給我 |
引言: 你好: 你該呼叫 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; |
jawtair
一般會員 ![]() ![]() 發表:30 回覆:92 積分:24 註冊:2003-04-26 發送簡訊給我 |
本站聲明 |
1. 本論壇為無營利行為之開放平台,所有文章都是由網友自行張貼,如牽涉到法律糾紛一切與本站無關。 2. 假如網友發表之內容涉及侵權,而損及您的利益,請立即通知版主刪除。 3. 請勿批評中華民國元首及政府或批評各政黨,是藍是綠本站無權干涉,但這裡不是政治性論壇! |