bestlong 怕失憶論壇

標題: 在TDBGrid中為修改過的紀錄作標示 [打印本頁]
作者: bestlong    時間: 2006-6-21 12:02     標題: 在TDBGrid中為修改過的紀錄作標示

  1. unit testDBG;

  3. interface

  5. uses
  6. Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  7. Dialogs, Grids, DBGrids, DB, ADODB, StdCtrls,Types;

  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;

  25. var
  26.   Form1: TForm1;
  27. implementation

  29. {$R *.dfm}
  30. type
  31.   MyRect = array[0..200] of TPoint;
  32. var
  33.   ME: MyRect; //紀錄已經修改過紀錄的單元格的左上角的點
  34.   i: integer;
  35.   CPoint: TPoint;//當前單元個左上角的點

  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;

  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;

  76. procedure TForm1.FormCreate(Sender: TObject);
  77. begin
  78.   I := 0; //初始化陣列起點
  79. end;

  81. end.
複製代碼




歡迎光臨 bestlong 怕失憶論壇 (http://www.bestlong.idv.tw/) Powered by Discuz! X1.5