請問各位~    有什麼的元件可以作到DBGrid元件,前面可多一件選取的功能~ DBGrid的資料部份從由資料庫取得~ 如下圖所示~ 謝謝~^^

http://delphi.about.com/od/usedbvcl/l/aa082003a.htm    網海無涯，唯學是岸！ 因為擁有，所以分享！

Hi qoo1234 您好~ 好不意思~我可能解釋不是很清楚~ 首先我有個篩選條件主畫面~ 其中選取條件值有個Memo元件旁邊有個按鈕(點選後跳出一個視窗) 就上列那張圖~然後由資料庫取得這些單別~至於前面所列選取~ 可多選並且帶回篩選條件主畫面中Memo中~ DBCheckBox的值是不需要由資料庫取得~ 謝謝~

在 DrawColumnCell 自己畫Button

procedure TForm1.DBGrid1DrawColumnCell(Sender: TObject;
  const Rect: TRect; DataCol: Integer; Column: TColumn;
  State: TGridDrawState);
var
  ARect : TRect;
  DrawFlags : Integer;
begin
  if SameText(Column.FieldName,'...') then
  begin
    ARect := Rect;
    DBGrid1.Canvas.Brush.Color := clBtnface;
    DBGrid1.Canvas.FillRect(ARect);
    DrawFlags := DFCS_BUTTONPUSH or DFCS_ADJUSTRECT;
    if gdSelected in State then DrawFlags := DrawFlags or DFCS_PUSHED;
    DrawFrameControl(DBGrid1.Canvas.Handle,  ARect, DFC_BUTTON, DrawFlags);
  end;
end;

在 OnCellClick 得知點擊位置。 並帶出視窗顯示MEMO內容。 ㄟ好像文不對題。不懂！ 發表人 - wameng 於 2004/11/30 11:33:13

Hi wameng 您好~ 不好意思~我不太懂您的意思呢~ 因為DBGrid的資料內容是由ADOQuery1元件所帶出來~ 我只是想要在單別前面多一個列check(勾選多筆資料)帶回Form1的Memo1~ 有什麼比較好理解的方法嗎~ 謝謝~麻煩您~^^

我做了個小範例    1.在畫面上放了一個ttable,datasource,dbgrid,一個按鈕,一個memo 2.dbgrid新增一個column,fieldname命名為 "選擇" 3.配置一個scope為form的變數,st,型態為tstringlist 4.預設所連接的dataset的第一個欄位為唯一索引欄位,對應到dbgrid是column[1]    這個小範例我上傳了,自己小小測試一下大概還能符合你所希望的樣子    http://delphi.ktop.com.tw/loadfile.php?TOPICID=18980020&CC=424480    

謝謝 hahalin 提供~ 小妹總算有點頭緒~詢問大家好幾天這方面的問題~ 我會試試看~也麻煩大家不少~ 謝謝~ 有嘍~前進的動力嘍~ ^^

===================引 用 文 章===================
我做了個小範例 1.在畫面上放了一個ttable,datasource,dbgrid,一個按鈕,一個memo 2.dbgrid新增一個column,fieldname命名為 "選擇" 3.配置一個scope為form的變數,st,型態為tstringlist 4.預設所連接的dataset的第一個欄位為唯一索引欄位,對應到dbgrid是column[1] 這個小範例我上傳了,自己小小測試一下大概還能符合你所希望的樣子 http://delphi.ktop.com.tw/loadfile.php?TOPICID=18980020&CC=424480

不好意思,我是新手
下載範例程式執行,請教如何設定全部勾選及全部取消勾選
翻了好幾篇文,找不到如何全部勾選的程式語法

------
Delphi的路要好好走,跳著走很容易跌倒

st的StringList是記錄它勾選與否,操作st內容即可達成
<textarea class="delphi" rows="10" cols="60" name="code"> procedure TForm1.Button2Click(Sender: TObject); begin while not Table1.eof do begin st.Add(table1.Fields[0].AsString); Table1.Next; end; dbgrid1.Invalidate; end; procedure TForm1.Button3Click(Sender: TObject); begin st.Clear; dbgrid1.Invalidate; end; </textarea>

原來如此,真是太感謝了...
我弄老半天一直想不出來
在Google查了一堆相關DBGrid語法用法
結果關鍵不是在DBGrid啊/ \
又學到了.看來我還有很多東西要學呢^^,謝謝

------
Delphi的路要好好走,跳著走很容易跌倒

請問各位專家們

為什麼field"選擇"有勾選功能??
我照著指示做了
但勾選的功能沒有出來耶

我是下載hal大大的檔案之後 再自行模擬的

tks

編輯記錄