全國最多中醫師線上諮詢網站-台灣中醫網
發文 回覆 瀏覽次數:1462
推到 Plurk!
推到 Facebook!

dbgrid一開始即凍結欄位,且又能增刪修,要如何寫?

尚未結案
yeedonho
一般會員


發表:3
回覆:2
積分:1
註冊:2003-12-06

發送簡訊給我
#1 引用回覆 回覆 發表時間:2003-12-06 10:39:30 IP:210.241.xxx.xxx 未訂閱
dbgrid一開始即凍結欄位,且又能增刪修,要如何寫? 凍結的欄位,也要輸入,help me!
ko
資深會員


發表:28
回覆:785
積分:444
註冊:2002-08-14

發送簡訊給我
#2 引用回覆 回覆 發表時間:2003-12-06 12:00:20 IP:61.221.xxx.xxx 未訂閱
yeedonho 你好: 可否正確的敘述: 1.為何一開始要凍結 2.再何種狀況下允許增,刪,修 3.再何種狀況下允許凍結的欄位,也可輸入 ...還有其他可以敘述的一起加上來  
引言: help me!
------
======================
昏睡~
不昏睡~
不由昏睡~
hahalin
版主


發表:295
回覆:1698
積分:823
註冊:2002-04-14

發送簡訊給我
#3 引用回覆 回覆 發表時間:2003-12-06 15:27:28 IP:211.76.xxx.xxx 未訂閱
我想要一台車,方向盤不可以轉動,油門要鎖死不能踩得動,可是我要車子能前進後退轉彎,不能轉動的方向盤與不能踩得動的油門也要有轉彎與加速的功能..     因為看不懂你的問題,瞎扯一番搏君一燦...
uuujjj
一般會員


發表:31
回覆:59
積分:18
註冊:2002-09-28

發送簡訊給我
#4 引用回覆 回覆 發表時間:2003-12-06 19:17:29 IP:61.218.xxx.xxx 未訂閱
引言: 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

發送簡訊給我
#5 引用回覆 回覆 發表時間:2003-12-06 19:40:52 IP:61.217.xxx.xxx 未訂閱
引言: 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

發送簡訊給我
#6 引用回覆 回覆 發表時間:2003-12-06 20:02:08 IP:61.218.xxx.xxx 未訂閱
引言:
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前輩~^0^ 我也順便學到了這一招~謝謝您~ 原來有這麼簡單而且方便的寫法~
leo2568
中階會員


發表:54
回覆:124
積分:70
註冊:2003-09-21

發送簡訊給我
#7 引用回覆 回覆 發表時間:2003-12-07 01:02:59 IP:61.217.xxx.xxx 未訂閱
謝謝!!大家《教學相長》呀! 發表人 - leo2568 於 2003/12/07 01:07:52
Mickey
版主


發表:77
回覆:1882
積分:1390
註冊:2002-12-11

發送簡訊給我
#8 引用回覆 回覆 發表時間:2003-12-07 12:35:47 IP:218.32.xxx.xxx 未訂閱
yeedonho 你好: 忘了是哪一版的 Delphi , 大概是...Delphi 3 吧, TColumn 有 NoScroll : Boolean Property. 就如 hahalin 版主所回應, 既然要能刪/修, 為何不先將 TColumn.NoScroll := False 呢 ? 這樣操作介面看起來也比較合理. 如果你一定要維持 NoScroll := True, 要修改其 Value, 建議你從 TField 著手, 另外做一個操作介面(如運用 InputBox).
yeedonho
一般會員


發表:3
回覆:2
積分:1
註冊:2003-12-06

發送簡訊給我
#9 引用回覆 回覆 發表時間:2003-12-08 10:43:05 IP:210.241.xxx.xxx 未訂閱
對不起!各位前輩 我的意思是前幾個欄位不跟著捲動,而且可以增刪修 之前有人提相同問題,但增刪修即變成沒有鎖定,且欄位抬頭變成空白,還是沒 辦法解決,且在不厭其煩,教導在下
ko
資深會員


發表:28
回覆:785
積分:444
註冊:2002-08-14

發送簡訊給我
#10 引用回覆 回覆 發表時間:2003-12-08 18:44:04 IP:61.221.xxx.xxx 未訂閱
yeedonho 你好: 用跳出的方式 使用者一按修改"凍結"dbgrid接著在畫面正中央跑出來 一個輸入格當使用者按下確定或離開"解凍" >
------
======================
昏睡~
不昏睡~
不由昏睡~
系統時間:2024-11-25 4:29:12
聯絡我們 | Delphi K.Top討論版
本站聲明
1. 本論壇為無營利行為之開放平台,所有文章都是由網友自行張貼,如牽涉到法律糾紛一切與本站無關。
2. 假如網友發表之內容涉及侵權,而損及您的利益,請立即通知版主刪除。
3. 請勿批評中華民國元首及政府或批評各政黨,是藍是綠本站無權干涉,但這裡不是政治性論壇!