Grid
編號 內容

如果我要新增「內容」，現在游標在內容上，如何在KeyDown事件上計算所輸入的長度，邊輸入邊計算內容大小，或是在別的事件上。

放一個dbedit連上與Dbgrid同一個DataSource，如果不想誏人看見設Visible=false
procedure TForm1.DBEdit1Change(Sender: TObject);
begin
form1.StaticText1.Caption := inttostr(dbedit1.GetTextLen);
end;

------
努力會更接近成功

感謝大大快速的回覆^^
但是我在輸入「內容」並不會馬上將資料寫回資料庫，必需要移動後才會寫入，請問大大還有別的方法嗎?
目地只是為了提示客戶在輸入超過幾個字後，會讓報表折行。

編輯記錄

DBEdit 與 DBGrid 暨然是同一個 DataSource, 他們就會同時反應 User 的 Key-In 並同時顯示結果,
不是等到寫回資料庫才有結果.

===================引 用 chris681016 文 章===================
感謝大大快速的回覆^^
但是我在輸入「內容」並不會馬上將資料寫回資料庫，必需要移動後才會寫入，請問大大還有別的方法嗎?
目地只是為了提示客戶在輸入超過幾個字後，會讓報表折行。

例如
載入時DBGRID 編輯時
編號 內容 編號 內容
001 0001 ----> 001 0000000001(此時所輸入的資料在DBEdit1還是0001)
002 0002 002 0002
DBEdit1=0001 DBEdit1=0001

移動後
編號 內容
001 0000000001
002 0002
DBEdit1=0000000001

能在「編輯時」就知道「內容」的長度大小嗎?
感謝回覆，表達不好請見諒^^

因 TDataSource 之 OnDataChange() 要等換欄或換錄才被觸發,
故無法即時顯示 TDBGrid Key-In 內容至 TDBEdit.

請試一下於 TDBGrid->OnKeyUp() Event 做處理: (用 CBC 語法)

[code cpp]
void __fastcall Form1::DBGrid1KeyUp(......)
{
TField *oxFd = DBGrid1->SelectedField;
String sxName = oxFd->FieldName;
if (sxName == "您指定的欄名") {
Variant FdVal = oxFd->Value;
String sxVal = FdVal;
int ixLen = sxVal.Length(); // 您要的 Length
// .... 做您要的處理
}
}
[/code]

編輯記錄

大大一樣不會變化耶@@
我是delphi寫成這樣結果還是一樣。
procedure TForm1.DBGrid1KeyDown(Sender: TObject; var Key: Word;
Shift: TShiftState);
var tf:TField;
val:Variant;
s_val:string;
begin
tf:=DBGrid1.SelectedField;
if DBGrid1.SelectedField.FieldName='c_name' then
begin
val:=tf.Value;
s_val:=val;
ShowMessage(s_val);
end;
end;

請用 KeyUp 再試一下, KeyDown 應尚未填入 Value.

試了一下DBGrid1KeyUp，一樣^^!!
感謝大大快速回覆

沒辦法了! TDBGrid 有很多內部 Private 的作業, 不完全瞭解, 幫不上了!
您看要不要再找一下 Help, 看能不能有方法擷取到正在 Edit 的 Cell 的現值.
另外, 您的 DataSource->AutoEdit = true 嗎?

您好,

很有趣的問題, 我想我也可能用得到, 所以努力找, 終於被我找到了

假設拉一個 tlabel 叫 label3 來放目前打了多少字
以下程式段放在 dbgrid 的 keyup 事件

if DBGrid1.ControlCount>0 then label3.caption := inttostr(TInplaceEdit(DBGrid1.Controls[0]).GetTextLen);

tinplaceedit 是用來放 dbgrid 編輯時的暫存資料的.

參考一下

補充 : 剛剛試了一下, D6 環境下一個中文字計2

再補充 : 剛剛試了一下, DBGRID 內 每一按键事件發生順序 KEYDOWN, KEYPRESS, KEYUP
本程式段要放在 KEYUP, 放在 KEYDOWN, KEYPRESS 的話會落後一碼 ( 因為該按鍵尚未完成動作 )
但感覺放在 KEYUP 好像比較慢, 可能 KEYUP 事件 DELPHI 本身要處理比較多事情吧.

------
IS IT WHAT IT IS
我是 李慕白 請倒著唸.
又想把老話拿出來說, 請用台語發音 : 專家專家全是ROBOT CAR (滷肉腳啦);
都已接手這麼久了, 績效還是那麼爛, 講話還那麼大聲.

編輯記錄

感謝各位大大的回覆，最後在st33chen的回應就可以了^^謝啦

因小弟從不使用 DBGrid 讓 User 做 Key-In,
且從 TDBGrid 的 Help 也很難聯想到 TInPlaceEdit 而未用過它,
害您多繞了許多路, 抱歉啦!

雖然問題已解決, 但想多瞭解一下 TInPlaceEdit, 故搜尋了一下 KTop,
找到這篇精彩文章, 您若要用 TDBGrid 作為 Edit 介面, 可前往參考一下.

http://delphi.ktop.com.tw/board.php?cid=30&fid=71&tid=90281

herbert2大大您怎麼熱心的回覆我就超感動了，別怎麼說，以後還請多多指教嘿^^。
我剛也有找一下TInPlaceEdit這的相關說^^

編輯記錄