Delphi DBGrid双击事件、单元格操作

1、得到当前格子中的内容:
DBGrid1.Fields[DBGrid1.SelectedIndex].DisplayText;
把DBGrid1.SelectedIndex改为你所希望引用的字段就可以了,如第3个字段。

DBGrid1.Fields[3].DisplayText;

2、双击单元格触发不同事件

procedure TMainFrm.DBGrid1DblClick(sender:TObject);

begin

     if dbgrid1.fields[dbgrid1.selectedIndex].FiledName='GNO' then begin   //   dbgrid1.selectedIndex ---选中单元格列

         //响应事件

     end;

     if dbgrid1.fields[dbgrid1.selectedIndex].FiledName='PSNNAME' then begin

         //响应事件
     end;

     if dbgrid1.fields[dbgrid1.selectedIndex].FiledName='RCSJ' then begin

         //响应事件

     end;

end;

时间: 2024-11-08 10:18:19

Delphi DBGrid双击事件、单元格操作的相关文章

请教 JTable 里的单元格如何使得双击进入单元格后,单元格的内容处于全选中状态

http://bbs.csdn.net/topics/390195204 ———————————————————————————————————————— java 达人, 最近在开发一个 java 模块,用到了 JTable.现在对 JTable 里的单元格的操作中,在双击进入单元格后,单元格的内容不是全选中状态. 请问有啥办法使得双击进入单元格后,单元格的内容处于全选中状态?如下面的图片所示 十分感谢! 下面是已经写好的代码: Java code? 1 2 3 4 5 6 7 8 9 10

如何实时获取DBGrid 中当前单元格输入的内容?

如何获取DBGrid 中当前单元格输入的内容? 还没输入完成,我想实时获取 Cell中的内容,以便作其他处理, 用什么事件呢? 所以Field的Onchange事件是没用的. 这个问题简单啊,每输入1个数据的后就提交(并不是提交到数据库,还是在编辑状态),那么用DataSet就可以取值了 用DBGrid的KeyUp事件: procedure TForm1.DBGrid1KeyUp(Sender: TObject; var Key: Word;   Shift: TShiftState); beg

(很难啊)如何实时获取DBGrid 中当前单元格输入的内容? [问题点数:100分,结帖人yifawu100]

如何获取DBGrid 中当前单元格输入的内容? 还没输入完成,我想实时获取 Cell中的内容,以便作其他处理,用什么事件呢? 所以Field的Onchange事件是没用的. DBGrid1.SelectedField.AsStringDBGrid1.SelectedField.Text看你需要选择 这个问题简单啊,每输入1个数据的后就提交(并不是提交到数据库,还是在编辑状态),那么用DataSet就可以取值了用DBGrid的KeyUp事件: procedure TForm1.DBGrid1Key

对unidbgrid的单元格操作

一.使某行某列单元格disabled: 1. UniStringGrid -> Options -> goEditing = true 2. UniStringGrid -> ExtEvents -> add event beforeedit function beforeedit(editor, context, eOpts) {  var FixedRow, FixedCols;   FixedRow = 1;    FixedCols = 1;      if (editor

c# WinForm开发 DataGridView控件的各种操作总结(单元格操作,属性设置)

一.单元格内容的操作 *****// 取得当前单元格内容 Console.WriteLine(DataGridView1.CurrentCell.Value); // 取得当前单元格的列 Index       Console.WriteLine(DataGridView1.CurrentCell.ColumnIndex); // 取得当前单元格的行 Index       Console.WriteLine(DataGridView1.CurrentCell.RowIndex); ******

PyQt5单元格操作大全

1.显示二维列表数据(QTableView)控件 '''显示二维列表数据(QTableView)控件数据源model需要创建一个QTableView实例和一个数据源model,然后将其两者关联 MVC模式 model viewer controller 前后端关联MVC的目的是将后端的数据和前端页面的耦合度降低 '''from PyQt5.QtWidgets import *from PyQt5.QtGui import *import sys class tableview(QWidget):

Jquery实现双击表单元格可编辑

<script type="text/javascript"> function doTableTdEditClick(param){ doTdEditable(param); } function doTdEditable(param){ var input ="<input type='text' id='temp' value='"+$(param).text()+"' />"; $(param).text(&quo

Delphi 转EXCEL 合并单元格解决方案

废话少说先上传代码,自己看吧! procedure TForm1.Button10Click(Sender: TObject); var FExcel:Variant; FWorkbook:Variant; FWorkSheet:Variant; XlsFileName:String; i,j:Integer; Field1,field2,Field3,Field4:string; LastField1,LastField2,Lastfield3,LastField4:string; saved

MFC的CListCtrl双击获取单元格的行列

首先要把ClistCtrl设置为整选中模式和网格模式 SetExtendedStyle(LVS_EX_GRIDLINES|LVS_EX_FULLROWSELECT); 重写方法如下: void CAldInfoDialog::OnNMDblclkListAld(NMHDR *pNMHDR, LRESULT *pResult){ // TODO: 在此添加控件通知处理程序代码 AfxMessageBox(_T("出现=")); NM_LISTVIEW* pNMListView = (NM