社区
Delphi
帖子详情
一个小问题:tdbgrid中的OneditButtonclick事件,请高手们指点
KongKong
2000-06-18 12:43:00
在tdbgrid中有一个onEditButtonClick事件,是在按省略键时发生,这个事件怎么用?怎样会有省略键,请各位高手、大虾指点!万分感谢!!!
...全文
156
5
打赏
收藏
一个小问题:tdbgrid中的OneditButtonclick事件,请高手们指点
在tdbgrid中有一个onEditButtonClick事件,是在按省略键时发生,这个事件怎么用?怎样会有省略键,请各位高手、大虾指点!万分感谢!!!
复制链接
扫一扫
分享
转发到动态
举报
写回复
配置赞助广告
用AI写文章
5 条
回复
切换为时间正序
请发表友善的回复…
发表回复
打赏红包
Rich_Zhou
2000-09-24
打赏
举报
回复
通常是用它指向一个自定义的对话框用于作特殊要求的输入
在自定义的对话框中定义一个函数供onEditButtenClick事件调用 返回值为编辑值。
如不明白 我给你一个例程。
cybercobra
2000-09-22
打赏
举报
回复
onEditButtonClick事件是在DBGrid中的elipsis键按下时引发的事件,elipsis键并不是省略键,而是指显示有省略号的按钮, 就是平常我们见到的带三个小点的那种按钮. 对DBGrid的某些Colume可以设置其ButtonStyle属性值为cbsElipsis(默认值为cbsAuto), 这时候它显示的就是带省略号的键.
这种键的用处举例: 比如在增加数据时要增加"物资名称"一项, 你可以设置"物资名称"Colume的ButtonStyle属性值为cbsElipsis, 然后在onEditButtonClick事件中打开一个查询窗口, 直接查询物资名称, 而不用再一个字一个字的输入
laogai
2000-06-30
打赏
举报
回复
关注
cybercobra
2000-06-30
打赏
举报
回复
关注
KongKong
2000-06-19
打赏
举报
回复
没人回答这个问题吗?
Delphi演示
TDB
Grid
组件的斑马线提示功能..rar
Delphi演示
TDB
Grid
组件的斑马线提示功能..rar
Delphi 将
TDB
Grid
导入到Excel表
中
附数据库.rar
Delphi7.0将
TDB
Grid
导入到Excel表
中
,测试程序先连接好SQLSERVER数据库,并将数据读取到
TDB
Grid
中
,然后再将数据从
TDB
Grid
导入到Excel表
中
,为了测试方便,SQLSERVER数据库文件已经附在源码包
中
。以下代码片断会有参考意义,完整源码
请
下载: //将
TDB
Grid
表
中
的标题插入到Excel表
中
的首行 for I:=0 to DbName.Columns.Count-1 do begin if DbName.Columns[i].Visible=False then Continue; Page.Cells[j,i 1] := DbName.Columns[i].Title.Caption; Page.Cells[j,i 1].Font.Bold := True; //设置字体为粗体 end; Inc(j); //Excel表
中
的下一行 First; //将指针返回到
TDB
Grid
表
中
数据的首行 while not Eof do begin for i:=0 to DbName.Columns.Count-1 do begin if DbName.Columns[i].Visible=False then Continue; //将指定行
中
每列的数据,添加到Excel表
中
Page.Cells[j,i 1] := trim(DbName.DataSource.DataSet.Fieldbyname(DbName.Columns[i].FieldName).asstring); end; Inc(j); //Excel表
中
的下一行 Next; //
TDB
Grid
表
中
的下一条记录 end;
TDB
Grid
7.0注册机
TDB
Grid
7.0注册机,已经测试OK
Delphi通过RTTI实现TdxDB
Grid
,
TDB
Grid
标题,列宽,显示顺序,字体大小颜色等动态配置
Delphi通过RTTI实现TdxDB
Grid
,
TDB
Grid
标题,列宽,显示顺序,字体大小颜色等动态配置
Script FastScript
var DBForm: TForm; Table: TTable; DataSource: TDataSource;
Grid
:
TDB
Grid
; begin DBForm := TForm.Create(nil); DBForm.SetBounds(100, 100, 400, 400); Table := TTable.Create(DBForm); Table.DatabaseName := 'DBDEMOS'; Table.TableName := 'customer.db'; Table.Open; DataSource := TDataSource.Create(DBForm); DataSource.DataSet := Table;
Grid
:=
TDB
Grid
.Create(DBForm);
Grid
.DataSource := DataSource;
Grid
.Parent := DBForm;
Grid
.Align := alClient; DBForm.ShowModal; DBForm.Free; end.
Delphi
5,388
社区成员
262,729
社区内容
发帖
与我相关
我的任务
Delphi
Delphi 开发及应用
复制链接
扫一扫
分享
社区描述
Delphi 开发及应用
社区管理员
加入社区
获取链接或二维码
近7日
近30日
至今
加载中
查看更多榜单
社区公告
暂无公告
试试用AI创作助手写篇文章吧
+ 用AI写文章