請教各位前輩: 如何將 DBGrid 中的欄位拖放到另一個 DBGrid 的欄位中? 一般都是Select整個Row用drag & drop 的方式來搬移。如果只指定要將DBGrid中的一個欄位用drag&drop的方式放到另一個DBGrid中是否有方法可行。 請各位大大幫幫忙。謝謝!! 發表人 - kcdavid 於 2002/09/06 23:18:16

mastering delphi 6 有一個label to dbgrid的範例,部分程式碼如下 type TDBGHack = class (TDbGrid) end; procedure TFormDrag.DBGrid1DragDrop(Sender, Source: TObject; X, Y: Integer); var gc: TGridCoord; begin gc := TDBGHack(DbGrid1).MouseCoord (x, y); if (gc.y > 0) and (gc.x > 0) then begin DbGrid1.DataSource.DataSet.MoveBy (gc.y - TDBGHack(DbGrid1).Row); DbGrid1.DataSource.DataSet.Edit; DBGrid1.Columns.Items [gc.X - 1].Field.AsString :=EditDrag.Text; end; DBGrid1.SetFocus; end; 基本上只要修改來源及要填入的值,應該就可以運用在其他的contol 不過,我將來源設成dbgrid2,只要將其gragmode設成mAutomatic,就無法用dbgrid2的OnCellClick事件來取使用者點選的cell value,這樣你從dbgrid2拉過去dbgrid1的值將會是空的..講白一點...還是於法解決你的問題....^^ 不過上面的程式碼已經幫你解決怎麼拖資料放到dbgrid..希望對你有幫助 ps.網路上有mastering delphi6的電子書包含範例..我之前下載的點已經不見了 你要自己再找來下載

------
星期一,二...無窮迴圈＠＠