dbgrid 可以取得 VisibleRowCount 嗎 ? |
|
答題得分者是：sryang
|
|
whyzn
中階會員   發表：46 回覆：149 積分：54 註冊：2002-06-16 發送簡訊給我 |
我查了一下
TDBGrid 繼承 TCustomDBGrid 繼承 TCustomGrid
而 TCustomGrid 有一個 Function GetVisibleRowCount
是我需要的功能 但她在 Private 段中
我可以獲得 TCustomGrid 中的 GetVisibleRowCount 嗎 或者有其他方法可以取得 DBGrid 目前顯示的 Record(列) 數 ●○○○○○●○○○○○●
竹密不妨水過，山高無礙雲飛 發表人 - whyzn 於 2005/07/23 18:11:44
------
●○○○○○●○○○○○● 竹密不妨水過，山高無礙雲飛 |
|
sryang
尊榮會員  發表：39 回覆：762 積分：920 註冊：2002-06-27 發送簡訊給我 |
GetVisibleRowCount 是在 private 段中，其他 class 是沒辦法直接用到的
但發現 GetVisibleRowCount 是 VisibleRowCount 這個屬性的取值函數 property VisibleRowCount: Integer read GetVisibleRowCount; 而 VisibleRowCount 這個屬性位於 protected 區段中，這就有辦法了 1.宣告一個 TMyGrid 繼承自 TCustomGrid 的 class
Type TMyGrid = class(TCustomGrid); 2.將 DBGrid 強制轉型成 TMyGrid 後就可以取用 VisibleRowCount 的值
TMyGrid(DBGrid1).VisibleRowCount 以 Delphi 的命名習慣，GetXxx 通常是 Xxx 屬性的取值函數，而 SetXxx 通常是 Xxx 屬性的賦值函數，Xxx 屬性的宣告通常是這樣(如果是 integer 類型)：
property Xxx: integer read GetXxx write SetXxx;
GetXxx 的宣告則是：
function GetXxx: integer;
SetXxx 的宣告則是：
procedure SetXxx(value: integer);
也就是說，當要取得 Xxx 屬性的值時，會執行 GetXxx，要設定 Xxx 屬性的值時，會執行 SetXxx
若宣告中只有 read 而沒有 write，就表示這個屬性是唯讀的 加油喔，喵～
------
歡迎參訪 "腦殘賤貓的備忘錄" http://maolaoda.blogspot.com/ |
|
whyzn
中階會員 發表：46 回覆：149 積分：54 註冊：2002-06-16 發送簡訊給我 |
發表時間：2005-07-23 16:20:23
IP:220.141.xxx.xxx 未訂閱
系統時間：2024-06-27 22:29:08
聯絡我們 | Delphi K.Top討論版
| 本站聲明 |
|
1. 本論壇為無營利行為之開放平台，所有文章都是由網友自行張貼，如牽涉到法律糾紛一切與本站無關。 2. 假如網友發表之內容涉及侵權，而損及您的利益，請立即通知版主刪除。 3. 請勿批評中華民國元首及政府或批評各政黨，是藍是綠本站無權干涉，但這裡不是政治性論壇！ |