如何將DBGrid中的欄位拖放到另一個DBGrid中的欄位 |
尚未結案
|
kcdavid
一般會員 發表:8 回覆:3 積分:2 註冊:2002-09-06 發送簡訊給我 |
|
pgdennis
資深會員 發表:41 回覆:526 積分:443 註冊:2002-05-23 發送簡訊給我 |
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的電子書包含範例..我之前下載的點已經不見了
你要自己再找來下載
------
星期一,二...無窮迴圈@@ |
本站聲明 |
1. 本論壇為無營利行為之開放平台,所有文章都是由網友自行張貼,如牽涉到法律糾紛一切與本站無關。 2. 假如網友發表之內容涉及侵權,而損及您的利益,請立即通知版主刪除。 3. 請勿批評中華民國元首及政府或批評各政黨,是藍是綠本站無權干涉,但這裡不是政治性論壇! |