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

原创 2006年06月02日 17:55:00

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

android webview js交互, 响应webview中的图片点击事件 ,点击(双击)使图片变大,单击退出

最近碰到个新需求需要点击webview中的图片进行放大显示。 整理了下思路,想到了下面的一个可行的方案。 http://download.csdn.net/detail/zlb_lover/965...

selenium-webdriver(python) -- 鼠标事件(双击,右键)

本节重点: ActionChains 类   context_click()  右击  double_click()   双击  drag_and_drop()  拖动   测试的产品中有...

JS右键点击事件

/** *实现右键菜单功能 */ --%>                                               ...

ztree异步加载-------右键增删改------点击事件-----拖拽功能----项目整合

同步ztree右键增删改点击事件拖拽功能 框架要求在上篇中都有,就不说了, 需求 首先点击网站频道管理---》网站展示页面----》点击频道---》频道树的展示页面(包含右键增删改,拖拽功能)、...

QTableView区分鼠标点击事件的左键和右键以及QSortFilterProxyModel重新排序的问题

最近在写程序的时候发现一个问题,界面上的QTableView在点击右键想出现右键菜单的时候,同时把单击对应的槽函数执行了一遍,所以想把鼠标左键和右键进行一下区分,找了好多方法发现通过重写mousePr...

介绍鼠标锁定,右键与中键点击事件–flash player11.2

我们在adobe labs放出了最新的 flashplayer11.2与air3.2 在经历了4年后,现在是时候了!一些很酷的消息就是在这版播放器中实现了一些酷的功能。如鼠标锁定,鼠标右键与中键...
  • wkyb608
  • wkyb608
  • 2011年11月23日 14:25
  • 895

ECharts重写鼠标右键点击事件

最近在学习ECharts,关于ECharts的鼠标右键事件可以看官网ECharts3文档的API,网址:点这个网址直接跳转到官网API指定的鼠标事件中去 如下:(http://echarts.baid...
内容举报
返回顶部
收藏助手
不良信息举报
您举报文章:右键点击修改Grid的单列值,及修改全表的值,还有相同点击事件的代码简化,及如何双击关闭一个tabsheet
举报原因:
原因补充:

(最多只允许输入30个字)