如何去自訂一個元件表單~ |
答題得分者是:cashxin2002
|
t0288542
中階會員 發表:216 回覆:254 積分:94 註冊:2004-10-06 發送簡訊給我 |
|
cashxin2002
版主 發表:231 回覆:2555 積分:1937 註冊:2003-03-28 發送簡訊給我 |
|
wameng
版主 發表:31 回覆:1336 積分:1188 註冊:2004-09-16 發送簡訊給我 |
1. 建立一BASEFORM
並加入 新增/刪除/修改等等按鈕。
如果您要使得 BASFORM 提供方法給 繼承的表單 Inherited
Protected
Proceudre DataManager(Append,Edit,Delete,Save,Abort:Boolean);Virtual; 2. 要套用時,先在Application 加入BaseForm(不要AutoCreateForm);
再按 File/New 選擇本專案檔名稱該頁並選該BaseForm
這樣就完成繼承動作。畫面上會直接顯示 BaseFORM 上的元件
{新增/刪除/修改等等按鈕} 3. 當然可以在BaseForm 預留一些方法來處理。
向我就會在BaseForm 加入一段
procedure TfDBBase.FormCloseQuery(Sender: TObject; var CanClose: Boolean); begin inherited; CanClose:=True; if B_Save.Enabled then CanClose := (MSGERROR('資料尚未儲存,是否放棄?',[],'',mtConfirmation,[mbYes,mbNo])=mrYes); end; |
t0288542
中階會員 發表:216 回覆:254 積分:94 註冊:2004-10-06 發送簡訊給我 |
|
pcplayer99
尊榮會員 發表:146 回覆:790 積分:632 註冊:2003-01-21 發送簡訊給我 |
本站聲明 |
1. 本論壇為無營利行為之開放平台,所有文章都是由網友自行張貼,如牽涉到法律糾紛一切與本站無關。 2. 假如網友發表之內容涉及侵權,而損及您的利益,請立即通知版主刪除。 3. 請勿批評中華民國元首及政府或批評各政黨,是藍是綠本站無權干涉,但這裡不是政治性論壇! |