在TDBGrid中為修改過的紀錄作標示

bestlong

1. unit testDBG;
   
2. 
   
3. interface
   
4. 
   
5. uses
   
6. Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
   
7. Dialogs, Grids, DBGrids, DB, ADODB, StdCtrls,Types;
   
8. 
   
9. type
   
10. TForm1 = class(TForm)
    
11.   DBG: TDBGrid;
    
12.   ADOConnection1: TADOConnection;
    
13.   ADOTable1: TADOTable;
    
14.   DataSource1: TDataSource;
    
15.   procedure DBGDrawColumnCell(Sender: TObject; const Rect: TRect;
    
16.   DataCol: Integer; Column: TColumn; State: TGridDrawState);
    
17.   procedure DBGKeyPress(Sender: TObject; var Key: Char);
    
18.   procedure FormCreate(Sender: TObject);
    
19. private
    
20.   { Private declarations }
    
21. public
    
22.   { Public declarations }
    
23. end;
    
24. 
    
25. var
    
26.   Form1: TForm1;
    
27. implementation
    
28. 
    
29. {$R *.dfm}
    
30. type
    
31.   MyRect = array[0..200] of TPoint;
    
32. var
    
33.   ME: MyRect; //紀錄已經修改過紀錄的單元格的左上角的點
    
34.   i: integer;
    
35.   CPoint: TPoint;//當前單元個左上角的點
    
36. 
    
37. procedure TForm1.DBGDrawColumnCell(Sender: TObject; const Rect: TRect; DataCol: Integer; Column: TColumn; State: TGridDrawState);
    
38. var
    
39.   J:integer;
    
40. begin
    
41.   if (gdFocused in State) {or (gdSelected in State) or (gdFixed in state)} then
    
42.   begin
    
43.   {下面的語法是記錄格當前活動單元格的左上角座標}
    
44.   CPoint.X := Rect.Left;
    
45.   CPoint.Y := Rect.Top;
    
46.   end;
    
47.   for J := 0 to I do
    
48.   begin
    
49.     if (Rect.Top = me[j].Y) and (Rect.left = me[j].X) then
    
50.     begin //判斷該單元格是否存在於已修改的陣列的紀錄中!
    
51.       dbg.Canvas.Brush.Color := clRed;
    
52.       dbg.DefaultDrawColumnCell(Rect,Datacol,column,state);
    
53.     end;
    
54.   end;
    
55. end;
    
56. 
    
57. procedure TForm1.DBGKeyPress(Sender: TObject; var Key: Char);
    
58. {由於沒有找到更好的紀錄點,所以如果修改的時候只按了一個按鍵的話將不會觸發這個語句!
    
59. 因為第一次執行這個語法的時候數據還沒有處於修改或者插入狀態,只測試了修改狀態,新增狀態沒測試過!}
    
60. var
    
61.   J:integer;
    
62. begin
    
63.   if dbg.DataSource.DataSet.State in [dsEdit, dsInsert] then
    
64.   begin //處於修改狀態:
    
65.     for J:=0 to i do
    
66.     begin //判斷該格是否已經記錄了
    
67.       if (me[j].X = CPoint.X) and (me[j].Y = CPoint.Y) then
    
68.         exit;
    
69.     end; //如果沒紀錄就把它記錄下來!
    
70.     me[i].X := CPoint.X;
    
71.     me[i].Y := CPoint.Y;
    
72.     i := i + 1;
    
73.   end;
    
74. end;
    
75. 
    
76. procedure TForm1.FormCreate(Sender: TObject);
    
77. begin
    
78.   I := 0; //初始化陣列起點
    
79. end;
    
80. 
    
81. end.

複製代碼