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

如何在dbgride欄位中加入memo??

尚未結案
i_love_rusli
一般會員


發表:2
回覆:1
積分:0
註冊:2004-03-15

發送簡訊給我
#1 引用回覆 回覆 發表時間:2007-04-19 16:15:33 IP:211.75.xxx.xxx 訂閱
 請問各位先進,要如何在dbgride欄位中加入memo元件呢?
只能做到下拉式選單的功能,沒有memo的功能嗎??
希望各位先進不吝指教,感恩!!
------
Ill be your dream
Ill be your wish
Ill be your fantasy
Ill be your hope
Ill be your love
Be everything that you need
h@visli
資深會員


發表:103
回覆:429
積分:431
註冊:2004-02-13

發送簡訊給我
#2 引用回覆 回覆 發表時間:2007-04-19 16:32:57 IP:218.18.xxx.xxx 訂閱
function TCustomDBGrid.GetEditLimit: Integer;
begin
Result := 0;
if Assigned(SelectedField) and (SelectedField.DataType in [ftString, ftWideString, ftMemo]) then <-- Add
Result := SelectedField.Size;
end;

function TCustomDBGrid.GetEditText(ACol, ARow: Longint): string;
begin
Result := '';
if FDatalink.Active then
with
Columns[RawToDataColumn(ACol)] do
if
Assigned(Field) then
Result := Field.AsString; <-- Change this.
FEditText := Result;
end;
------
------------------------
博采眾家之長,奉獻綿薄之力
------------------------
系統時間:2024-05-16 21:37:14
聯絡我們 | Delphi K.Top討論版
本站聲明
1. 本論壇為無營利行為之開放平台,所有文章都是由網友自行張貼,如牽涉到法律糾紛一切與本站無關。
2. 假如網友發表之內容涉及侵權,而損及您的利益,請立即通知版主刪除。
3. 請勿批評中華民國元首及政府或批評各政黨,是藍是綠本站無權干涉,但這裡不是政治性論壇!