DBGridEh - MemTableEh
DBGridEh - MemTableEh
小小de巫师
于 2018-07-30 01:24:35 发布 1735
收藏 3
分类专栏: Delphi Xe3
版权
Delphi Xe3 专栏收录该内容
28 篇文章 0 订阅
订阅专栏
TDBGridEh
Options选项
dgMultiSelect 选择多行
dgRowSelect 选择整行
dghRowHighlight 显示选择区域
OptionsEh选项
dghRowHighlight 选中整行高亮
//移动指针
MemTableEh1.Locate('fname', Tab3_DBGridEh2.Fields[Tab3_DBGridEh2.SelectedIndex].DisplayText, []);
Tab3_ADOQuery1.Locate('fWangwangID', '客户', []);
procedure TForm1.DBGridEh2CellClick(Column: TColumnEh);
begin
fName := Column.FieldName; //获取列头名称
fid := Column.ID; //获取第几列
end;
procedure TForm1.N14Click(Sender: TObject);
begin
Showmessage(DBGridEh2.Fields[fid].DisplayText); //根据第几列,获取单元格内容
Showmessage(DBGridEh2.FieldColumns[fName].DisplayText); //根据列头名称,获取单元格内容
end;
procedure TForm1.DBGridEh1MouseDown(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
begin
//获取当前选中的单元格内容
Showmessage(DBGridEh1.Fields[DBGridEh1.SelectedIndex].DisplayText)
//获取当前选中的字段序号
Showmessage(Inttostr(DBGridEh1.SelectedIndex));
//获取当前选中的字段名称
Showmessage(DBGridEh1.SelectedField.FieldName);
end;
//MemTableEh排序方法如下,引用ehlibMTE单元
1、OptionsEh - dghAutoSortMarking:=True;
2、ColumDefValues - Title - TitleButton:=True;
3、SortLocal:=True;
//DBGridEh排序方法,连接ADO!引用EhlibADO单元
1、OptionsEh --> dghAutoSortMarking:=True;
2、Columns --> Title --> TitleButto:=True;
//双击修改单元格内容,不允许选择多行
procedure TForm1.Tab1_Grid1DblClick(Sender: TObject);
begin
Tab1_Grid1.Options := [dgTitles, dgIndicator, dgEditing, dgColumnResize, dgColLines, dgRowLines, dgTabs, dgConfirmDelete, dgCancelOnExit];
end;
//允许选择多行但不允许修改单元格
Tab1_Grid1.Options := [dgTitles, dgIndicator, dgColumnResize, dgColLines, dgRowLines, dgTabs, dgRowSelect, dgConfirmDelete, dgCancelOnExit, dgMultiSelect];
————————————————
版权声明:本文为CSDN博主「小小de巫师」的原创文章,遵循CC 4.0 BY-SA版权协议,转载请附上原文出处链接及本声明。
原文链接:https://blog.csdn.net/gfuchao/article/details/81278391
小小de巫师
于 2018-07-30 01:24:35 发布 1735
收藏 3
分类专栏: Delphi Xe3
版权
Delphi Xe3 专栏收录该内容
28 篇文章 0 订阅
订阅专栏
TDBGridEh
Options选项
dgMultiSelect 选择多行
dgRowSelect 选择整行
dghRowHighlight 显示选择区域
OptionsEh选项
dghRowHighlight 选中整行高亮
//移动指针
MemTableEh1.Locate('fname', Tab3_DBGridEh2.Fields[Tab3_DBGridEh2.SelectedIndex].DisplayText, []);
Tab3_ADOQuery1.Locate('fWangwangID', '客户', []);
procedure TForm1.DBGridEh2CellClick(Column: TColumnEh);
begin
fName := Column.FieldName; //获取列头名称
fid := Column.ID; //获取第几列
end;
procedure TForm1.N14Click(Sender: TObject);
begin
Showmessage(DBGridEh2.Fields[fid].DisplayText); //根据第几列,获取单元格内容
Showmessage(DBGridEh2.FieldColumns[fName].DisplayText); //根据列头名称,获取单元格内容
end;
procedure TForm1.DBGridEh1MouseDown(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
begin
//获取当前选中的单元格内容
Showmessage(DBGridEh1.Fields[DBGridEh1.SelectedIndex].DisplayText)
//获取当前选中的字段序号
Showmessage(Inttostr(DBGridEh1.SelectedIndex));
//获取当前选中的字段名称
Showmessage(DBGridEh1.SelectedField.FieldName);
end;
//MemTableEh排序方法如下,引用ehlibMTE单元
1、OptionsEh - dghAutoSortMarking:=True;
2、ColumDefValues - Title - TitleButton:=True;
3、SortLocal:=True;
//DBGridEh排序方法,连接ADO!引用EhlibADO单元
1、OptionsEh --> dghAutoSortMarking:=True;
2、Columns --> Title --> TitleButto:=True;
//双击修改单元格内容,不允许选择多行
procedure TForm1.Tab1_Grid1DblClick(Sender: TObject);
begin
Tab1_Grid1.Options := [dgTitles, dgIndicator, dgEditing, dgColumnResize, dgColLines, dgRowLines, dgTabs, dgConfirmDelete, dgCancelOnExit];
end;
//允许选择多行但不允许修改单元格
Tab1_Grid1.Options := [dgTitles, dgIndicator, dgColumnResize, dgColLines, dgRowLines, dgTabs, dgRowSelect, dgConfirmDelete, dgCancelOnExit, dgMultiSelect];
————————————————
版权声明:本文为CSDN博主「小小de巫师」的原创文章,遵循CC 4.0 BY-SA版权协议,转载请附上原文出处链接及本声明。
原文链接:https://blog.csdn.net/gfuchao/article/details/81278391