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

如何自建FORM基类

尚未結案
Amanda_Chen
一般會員


發表:25
回覆:82
積分:21
註冊:2003-12-28

發送簡訊給我
#1 引用回覆 回覆 發表時間:2004-02-23 09:54:54 IP:61.165.xxx.xxx 未訂閱
请教:如有若干查询,都需要相似的VCL控件,都需导到EXCEL,只是查询条件等不同,想做成FORM基类,其它查询FORM可以继承该基类,不知如何实现啊?谢谢啦。
seaturn99
版主


發表:69
回覆:427
積分:214
註冊:2003-08-25

發送簡訊給我
#2 引用回覆 回覆 發表時間:2004-02-24 10:15:56 IP:203.66.xxx.xxx 未訂閱
引言: 请教:如有若干查询,都需要相似的VCL控件,都需导到EXCEL,只是查询条件等不同,想做成FORM基类,其它查询FORM可以继承该基类,不知如何实现啊?谢谢啦。
Amanda_Chen 您好 : 懶人法 : 1. 新增一個 TForm ,然後把 Excel 等相關元件拉入 .. 將 "查询条件" 相關之功能獨立開放出來,設定 Visible := false (不可視) 2. 新增 DataModule ,類似 1 做法 如果連畫面都很固定,只是查詢條件不同的話... 那直接將畫面 Ex: DBGrid, DBEdit 等元件將畫面設計好.. 放上 DataSource 與控制元件,做好設定條件的功能待呼叫.. 假設是在 Unit1.pas 裡的 TForm1 作上述的動作.. 設計的時候,如要繼承 .. uses Unit1; TMyForm = class(TForm1) 即可.. 若是呼叫使用, 可使用 Application.CreateForm(TForm1, Form1); 或是 var Form1 : TForm1; begin Form1 := TForm1.Create(self); end; 只要操作改變查詢條件,自然顯示結果就會改變了... 如果是這樣單純的情況,就不要考慮繼承的設計,會比較簡單一點.. ---- 我只會兩件事,這也不會,那也不會 眼見不一定為真 ----
william
版主


發表:66
回覆:2535
積分:3048
註冊:2002-07-11

發送簡訊給我
#3 引用回覆 回覆 發表時間:2004-02-24 11:05:35 IP:147.8.xxx.xxx 未訂閱
Visual form inheritance? 1) create you base form 2) File|New|Other|You Project Tab and select your base form
Amanda_Chen
一般會員


發表:25
回覆:82
積分:21
註冊:2003-12-28

發送簡訊給我
#4 引用回覆 回覆 發表時間:2004-02-24 16:47:01 IP:61.165.xxx.xxx 未訂閱
to South Wind: 是想做成form基类,其它程序可继承它,如建立一个操作表                  单,具体操作如新建、编辑、删除、查询都可继承自它。这个                基类有着一定的界面要求,及基本的操作规范。但是按如下操                作后会出现找不到TForm1的错误提示。不知道什么原因。再试                 试是不是漏掉了什么地方吧。               “unit unit1 ;                    TMyForm = class(TForm1) ” to William: 可以了!按照您的方法我的问题解决了!小女子再次拜谢!如果             用程序方式引用应该也可以吧?我是说不用D7自带的这种方法,             用诸如南风先生所说的方法哩?    
Amanda_Chen
一般會員


發表:25
回覆:82
積分:21
註冊:2003-12-28

發送簡訊給我
#5 引用回覆 回覆 發表時間:2004-02-24 16:58:43 IP:61.165.xxx.xxx 未訂閱
好有趣!利用William大大的方法新创子类时,可以看到inherited的字样,可从新project中移除基类,重新只留子类的project,再打开,运行正常,可是好象它除了用到基类的.pas文件外,什么也没做过。那些动作到哪里去了呢?< > < >问题有些蠢,可是我真想知道答案。< >< >
william
版主


發表:66
回覆:2535
積分:3048
註冊:2002-07-11

發送簡訊給我
#6 引用回覆 回覆 發表時間:2004-02-24 17:02:54 IP:147.8.xxx.xxx 未訂閱
引言: to William: 可以了!按照您的方法我的问题解决了!小女子再次拜谢!如果 用程序方式引用应该也可以吧?我是说不用D7自带的这种方法, 用诸如南风先生所说的方法哩? < face="Verdana, Arial, Helvetica"> Yes you can and you may need to do all the modification of the GUI yourself. BTW, isn't visual form inheritance a selling point of Delphi
Amanda_Chen
一般會員


發表:25
回覆:82
積分:21
註冊:2003-12-28

發送簡訊給我
#7 引用回覆 回覆 發表時間:2004-02-24 17:30:22 IP:61.165.xxx.xxx 未訂閱
to William:    Thanks a lot. I see.
seaturn99
版主


發表:69
回覆:427
積分:214
註冊:2003-08-25

發送簡訊給我
#8 引用回覆 回覆 發表時間:2004-02-24 18:01:33 IP:203.66.xxx.xxx 未訂閱
引言: to South Wind: 是想做成form基类,其它程序可继承它,如建立一个操作表 单,具体操作如新建、编辑、删除、查询都可继承自它。这个 基类有着一定的界面要求,及基本的操作规范。但是按如下操 作后会出现找不到TForm1的错误提示。不知道什么原因。再试 试是不是漏掉了什么地方吧。 “unit unit1 ; TMyForm = class(TForm1) ” to William: 可以了!按照您的方法我的问题解决了!小女子再次拜谢!如果 用程序方式引用应该也可以吧?我是说不用D7自带的这种方法, 用诸如南风先生所说的方法哩? < face="Verdana, Arial, Helvetica"> 兩個做法都是一樣的, William 的方法是 Delphi 幫你做掉許多動作.. 您可以看一下 Source Code ... 每繼承一個 Form 會產生一個新的 Unit.pas .. 且 Form 繼承指定的 Form (有點繞舌) View -> Project Manager -> View Source .. 每繼承一個 Form ,會自動 Create Form (Application.CreateForm) 只是正如 William 大大所言,第一個 Form 還是得自己設計... ---- 我只會兩件事,這也不會,那也不會 眼見不一定為真 ----
系統時間:2024-07-05 4:54:14
聯絡我們 | Delphi K.Top討論版
本站聲明
1. 本論壇為無營利行為之開放平台,所有文章都是由網友自行張貼,如牽涉到法律糾紛一切與本站無關。
2. 假如網友發表之內容涉及侵權,而損及您的利益,請立即通知版主刪除。
3. 請勿批評中華民國元首及政府或批評各政黨,是藍是綠本站無權干涉,但這裡不是政治性論壇!