dbgrid一開始即凍結欄位,且又能增刪修,要如何寫? |
尚未結案
|
yeedonho
一般會員 發表:3 回覆:2 積分:1 註冊:2003-12-06 發送簡訊給我 |
|
ko
資深會員 發表:28 回覆:785 積分:444 註冊:2002-08-14 發送簡訊給我 |
|
hahalin
版主 發表:295 回覆:1698 積分:823 註冊:2002-04-14 發送簡訊給我 |
|
uuujjj
一般會員 發表:31 回覆:59 積分:18 註冊:2002-09-28 發送簡訊給我 |
引言: dbgrid一開始即凍結欄位,且又能增刪修,要如何寫? 凍結的欄位,也要輸入,help me!上面的hahalin前輩還真爆笑耶…哈哈哈~ 這是在下的一個小小推測~ 不知您的凍結是不是此意…@@" 請您在 src="http://delphi.ktop.com.tw/download/upload\41735_1.jpg"> 接著點選所要凍結(不讓人修改?)的欄位, 至左方的Object Inspector中將ReadOnly如下圖 改成「True」,這樣子的話 別人既不能隨意亂那欄位,也能做你要的新刪修作業。 ========================== 呃…還是說您說的凍結是不能隨意變動欄位的位置@@ 哈哈~~如果是的話,上面的就當文章看看… 發表人 - |
leo2568
中階會員 發表:54 回覆:124 積分:70 註冊:2003-09-21 發送簡訊給我 |
引言: dbgrid一開始即凍結欄位,且又能增刪修,要如何寫? 凍結的欄位,也要輸入,help me! procedure TForm1.DBGrid1ColumnMoved(Sender: TObject; FromIndex, ToIndex: Integer); begin with (Sender as TDbGrid).Columns do Items[ToIndex].index:=Items[FromIndex].index; end; ╭╧╮╭╧╮╭╧╮╭╧╮╭╮☆ ║聖│║誕│║快│║樂│ ╰☆╮ ╘∞╛╘∞╛╘∞╛╘∞╛☆╰☆ . ﹒☆‧☆∴.:☆﹒‧∴ ☆.....發表人 - leo2568 於 2003/12/06 19:49:16 |
uuujjj
一般會員 發表:31 回覆:59 積分:18 註冊:2002-09-28 發送簡訊給我 |
引言:不虧是leo2568前輩~^0^ 我也順便學到了這一招~謝謝您~ 原來有這麼簡單而且方便的寫法~procedure TForm1.DBGrid1ColumnMoved(Sender: TObject; FromIndex, ToIndex: Integer); begin with (Sender as TDbGrid).Columns do Items[ToIndex].index:=Items[FromIndex].index; end;╭╧╮╭╧╮╭╧╮╭╧╮╭╮☆ ║聖│║誕│║快│║樂│ ╰☆╮ ╘∞╛╘∞╛╘∞╛╘∞╛☆╰☆ . ﹒☆‧☆∴.:☆﹒‧∴ ☆.....發表人 - leo2568 於 2003/12/06 19:49:16 |
leo2568
中階會員 發表:54 回覆:124 積分:70 註冊:2003-09-21 發送簡訊給我 |
|
Mickey
版主 發表:77 回覆:1882 積分:1390 註冊:2002-12-11 發送簡訊給我 |
yeedonho 你好: 忘了是哪一版的 Delphi , 大概是...Delphi 3 吧, TColumn 有 NoScroll : Boolean Property. 就如 hahalin 版主所回應, 既然要能刪/修, 為何不先將 TColumn.NoScroll := False 呢 ? 這樣操作介面看起來也比較合理. 如果你一定要維持 NoScroll := True, 要修改其 Value, 建議你從 TField 著手, 另外做一個操作介面(如運用 InputBox).
|
yeedonho
一般會員 發表:3 回覆:2 積分:1 註冊:2003-12-06 發送簡訊給我 |
|
ko
資深會員 發表:28 回覆:785 積分:444 註冊:2002-08-14 發送簡訊給我 |
本站聲明 |
1. 本論壇為無營利行為之開放平台,所有文章都是由網友自行張貼,如牽涉到法律糾紛一切與本站無關。 2. 假如網友發表之內容涉及侵權,而損及您的利益,請立即通知版主刪除。 3. 請勿批評中華民國元首及政府或批評各政黨,是藍是綠本站無權干涉,但這裡不是政治性論壇! |