右键点击修改Grid的单列值,及修改全表的值,还有相同点击事件的代码简化,及如何双击关闭一个tabsheet

作为一个delphi初学者来说，自己得来的经验十分珍贵，今天由于新建了一个windows新账户差点导致原来放在桌面上的代码无法找回，现把它们记录下来,及备后用

1. procedure TfrmServerSetup.DBAdvStringGrid1MouseDown(Sender: TObject;
2.   Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
3. Var
4.   s:string;
5.   GrdCrd: TGridCoord;
6. begin
7.   GrdCrd := TDBAdvStringGrid(Sender).MouseCoord(X, Y);
8.   if Button=mbRight then
9.   begin
10.   s:=inputbox('修改列值','输入值','0');
12.    //这里要设置这些Grid的tag属性,把sender强制转换为TDBAdvStringGrid类型,根据tag判断是哪一个Grid
13.     case TDBAdvStringGrid(sender).Tag of
14.     1: ColumnModify(GrdCrd.X,s,adotable1);
15.     2: ColumnModify(GrdCrd.X,s,adotable2);
16.     3: ColumnModify(GrdCrd.X,s,adotable3);
17.     4: ColumnModify(GrdCrd.X,s,adotable4);
18.     5: ColumnModify(GrdCrd.X,s,adotable5);
19.     6: ColumnModify(GrdCrd.X,s,adotable6);
20.     end;
21.   end;
22. end;
24. procedure TfrmServerSetup.DataProcess(str:string;adotb:TADOTable);
25. var
26.   i:integer;
27. begin
28.   with adotb do
29.   while not eof do
30.   begin
31.     i:=0;
32.     while i<=23 do
33.     begin
34.       edit;
35.       adotb.fieldvalues['time'+inttostr(i)]:=str;
36.       i:=i+1;
37.     end;
38.     adotb.Next;
39.   end;
40. end;
42. procedure TfrmServerSetup.BitBtn3Click(Sender: TObject);
43. Var
44.   s:string;
45. begin
46.    s:=inputbox('修改全表','输入值','0');
48.    if pagecontrol1.ActivePage=tabsheet1 then
49.    begin
50.      DataProcess(s,adotable1);
51.    end;
53.    if pagecontrol1.ActivePage=tabsheet2 then
54.    begin
55.      DataProcess(s,adotable2);
56.    end;
58.    if pagecontrol1.ActivePage=tabsheet3 then
59.    begin
60.      DataProcess(s,adotable3);
61.    end;
63.    if pagecontrol1.ActivePage=tabsheet4 then
64.    begin
65.      DataProcess(s,adotable4);
66.    end;
68.    if pagecontrol1.ActivePage=tabsheet5 then
69.    begin
70.      DataProcess(s,adotable5);
71.    end;
73.    if pagecontrol1.ActivePage=tabsheet6 then
74.    begin
75.      DataProcess(s,adotable6);
76.    end;
77. end;
79. //左键双击关闭pagecontrol中的一个分页即一个tabsheet,功能像遨游浏览器一样
80. procedure TfrmServerSetup.PageControl1MouseDown(Sender: TObject;
81.   Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
82. var
83.  Index: Integer;
84. begin
85.  //左键点击并且双击
86.  if (Button = mbLeft) and (ssDouble in Shift) then
87.  begin
88.    Index := PageControl1.IndexOfTabAt(X, Y);
89.    if Index >= 0 then
90.      PageControl1.Pages[Index].Free;
91.  end;
92. end;