這樣做的目的是如果雙擊在DDGrid空白處,則新增一條記錄否則修改此條記錄.
解决方案 »
- 菜鸟问,如果判断打印机是否准备好
- 一个关于音量的问题
- 恳求各位大侠帮我解决这个关于数据导入的问题!!!!
- 请教在toolbar上的东西的先后顺序问题!
- 抢分了!数据库的开发?
- delphi中有哪个控件没有焦点时是平的,鼠标移上去变成3D的(就是凸上来)
- @@@@@@@@@@@@@@@@怎样在报表中显示数组里的内容??用什么控件怎样现实,怎样实现??谢谢!
- 欢迎下载 捡金豆游戏 来者有分!
- 请问这几句话有错误吗,(添在一个button的click事件里)为什么错误告诉我“在sql语句后找到字符”
- 工控软件源码程序,不可不看!!!
- 如何将实例化的类传给一个过程?在线等....
- 我是新手,关于一个combobox的问题?
if adoquery.fieldbyname('field').asstring='' Then
showmessage('无');
不过我更改一下他的代码
if DBGrid1.DataSource.DataSet.fieldbyname('field').asstring='' Then
showmessage('无');也可以try一下这个:
if DBGrid1.SelectedRows.Count < 0 then
showmessage('无');
DBGrid -> Fields
Var
Point :TPoint;
GridCoord :TGridCoord;
begin
GetCursorPos(Point);
Point := DBGrid.ScreenToClient(Point);
GridCoord := DBGrid.MouseCoord(Point.x, Point.y);
// X, Y 是行和列
If (GridCoord.Y <> 0) And (GridCoord.X <> 0) Then
// yours code
end;