VFP 愛用者社區

joyjoy · 註冊時間: 2003-09-29 文章: 24 第 1 樓

各位前輩您們好！

請教兩個問題：

在grid中，以鍵盤之方向鍵移動至其他儲存格後，作用儲存格會"整格"反白，而且游標並未進入儲存格，
當輸入資料時，游標就會進入該作用儲存格中。

但若用滑鼠點至其他儲存格時，並不會"整格"反白，而是游標直接進入儲存格。

我的問題是：
一、要如何得知作用儲存格是否被點入（游標）？
二、能否讓游鼠點某儲存格後的反應如方向鍵移動焦點儲存格的反應，
即焦點移至該儲存格、"整格"反白、游標不進入。

謝謝各位先進！

goto-dream · 註冊時間: 2004-05-11 文章: 909 第 2 樓

1.可以用TEXT事件getFocus反應出哪一各儲存格發生了

2.同樣可以用getFocus將TEXT反白即可
及lostFocus離開恢復顏色

garfield · 發表於: 星期五五月 27, 2005 9:17 am 文章主題:

1.同 goto-dream
2.如果先將 grid.columns( ? ) 設成 disabled 這樣應該也不會進入.

joyjoy · 註冊時間: 2003-09-29 文章: 24 第 4 樓

謝謝兩位！
我研究看看。
另、
我在別人的系統上看到它的grid是，
點某筆紀錄時，整列都反白，
當按下"Enter"或輸入值或以滑鼠點時就會進入該儲存格編輯。
請問：
這種效果是不是很難做？

catjoke · 發表於: 星期六五月 28, 2005 10:19 am 文章主題:

一點也不難!

自定一個 grid class, 叫 GRD
內加一個新屬性: CURRECNO

然後在 GRD.AFTERROWCOLCHANGE 寫上:

SELECT (THIS.RECORDSOURCE)
THIS.CURRECNO = RECNO()

THIS.SetAll("DynamicBackColor", "IIF(THIS.CURRECNO=RECNO( ), RGB(255,255,255), RGB(128,128,128))", "Column")

那就可以全行反白!

當中的文字全選: 請查看 SELECTONENTRY, SELSTART, SELLENGTH 屬性用法!
並留意 CLICK, GOTFOCUS 等 EVENT 的控制~

始終要自己試出來才叫學到, 你要的工具及更改處已列明!

成功後分享你的處理方法吧! Razz

當做功課~ :PPPP

小賴 · 註冊時間: 2004-12-27 文章: 477 第 6 樓

有這樣複雜嗎 ?
試試於Grid 之INIT() 事件加入：

This.SetAll("BackColor", RGB(0,0,200), "TextBox")
This.SetAll("ForeColor", RGB(255,255,0), "TextBox")

看看結果

joyjoy · 註冊時間: 2003-09-29 文章: 24 第 7 樓

謝謝catjoke 及小賴的指導，
我會努力試試的。

goto-dream · 註冊時間: 2004-05-11 文章: 909 第 8 樓

如果是使用vfp7以上的.有新的功能
可使整列反白
highlighrow=.T.還有highlighstyle

這樣就不用寫任何程式的....

你可以搜尋本站關於grid有一堆資料的~
而且很詳盡的