怎么关闭子窗体 |
答題得分者是:pceyes
|
wq236589
一般會員 發表:21 回覆:37 積分:16 註冊:2008-08-27 發送簡訊給我 |
我在创建一个主窗体以后创建了2个子窗体,但是我运行了以后子窗体只能最小化不能关闭,怎么才能关闭。
下面是我找到的代码 [code delphi] 請在此區域輸入程式碼 [/code] procedure TForm2.FormClose(Sender: TObject; var Action: TCloseAction); begin Action := caFree; end; ********************************************** Form1是父窗体 里面有个Button1 procedure TForm1.Button1Click(Sender: TObject); begin if Not Assigned(Form2) then Form2 := TForm2.Create(Nil); Form2.Show; end; form2是子窗体 procedure TForm2.FormClose(Sender: TObject; var Action: TCloseAction); begin Action := Cafree; Form2 := Nil; end; 但是我在子窗体中输入这些就报错 |
pceyes
尊榮會員 發表:70 回覆:657 積分:1140 註冊:2003-03-13 發送簡訊給我 |
乍看之下沒有問題,如果能全部程式秀出來,也許能知個大概。參考下面的看有沒有解。
關於 MDI 相同 Form 重複開啟,再逐一關閉時的錯誤問題. http://delphi.ktop.com.tw/board.php?cid=30&fid=66&tid=92352
------
努力會更接近成功 |
wq236589
一般會員 發表:21 回覆:37 積分:16 註冊:2008-08-27 發送簡訊給我 |
本站聲明 |
1. 本論壇為無營利行為之開放平台,所有文章都是由網友自行張貼,如牽涉到法律糾紛一切與本站無關。 2. 假如網友發表之內容涉及侵權,而損及您的利益,請立即通知版主刪除。 3. 請勿批評中華民國元首及政府或批評各政黨,是藍是綠本站無權干涉,但這裡不是政治性論壇! |