線上訂房服務-台灣趴趴狗聯合訂房中心
發文 回覆 瀏覽次數:816
推到 Plurk!
推到 Facebook!

如何去自訂一個元件表單~

答題得分者是:cashxin2002
t0288542
中階會員


發表:216
回覆:254
積分:94
註冊:2004-10-06

發送簡訊給我
#1 引用回覆 回覆 發表時間:2004-10-25 14:53:31 IP:61.221.xxx.xxx 未訂閱
請問各位高手~ 我是Delphi初學者~ 我想請問有關如何建立一個表單元件~ 例如這個表單具備新增/刪除/修改等等按鈕~ 方便以後一些基本處理可直接套用此元件~ 請問我應該從那個方向做呢~ 或那些有提供這方面資料~ 謝謝~
cashxin2002
版主


發表:231
回覆:2555
積分:1937
註冊:2003-03-28

發送簡訊給我
#2 引用回覆 回覆 發表時間:2004-10-25 15:23:22 IP:202.62.xxx.xxx 未訂閱
您好﹗    Data Controls元件頁的DBNavigator元件﹒ 或﹕控制自訂DBNavigator的使用限制 http://delphi.ktop.com.tw/topic.php?TOPIC_ID=29249    ========================= 大病初愈﹐休養調整中... =========================
------
忻晟
wameng
版主


發表:31
回覆:1336
積分:1188
註冊:2004-09-16

發送簡訊給我
#3 引用回覆 回覆 發表時間:2004-10-25 15:28:21 IP:61.31.xxx.xxx 未訂閱
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

發送簡訊給我
#4 引用回覆 回覆 發表時間:2004-10-26 09:30:38 IP:61.221.xxx.xxx 未訂閱
謝謝~ 我會再試試看~ 如有問題時~我會再提出~ 希望大家可以幫忙我~ ^^
pcplayer99
尊榮會員


發表:146
回覆:790
積分:632
註冊:2003-01-21

發送簡訊給我
#5 引用回覆 回覆 發表時間:2004-10-26 11:22:53 IP:219.133.xxx.xxx 未訂閱
另外一个办法,是建立一个 Frame ,把你要的元件比如 DBNavigator 放上去。 将来需要用的地方,就直接把这个 Frame 拖到你的 Form 里。
系統時間:2024-06-29 5:19:45
聯絡我們 | Delphi K.Top討論版
本站聲明
1. 本論壇為無營利行為之開放平台,所有文章都是由網友自行張貼,如牽涉到法律糾紛一切與本站無關。
2. 假如網友發表之內容涉及侵權,而損及您的利益,請立即通知版主刪除。
3. 請勿批評中華民國元首及政府或批評各政黨,是藍是綠本站無權干涉,但這裡不是政治性論壇!