我想在当前行,选择列下面显示一个panel,但不知道怎样定位.不能取光标函数来定位。 怎样做。
回答正确得满 分。
回答正确得满 分。
解决方案 »
- 请教一个关于流播放里TBCMemFileStream的问题
- 如果我新建一个线程,那么我怎么在创建的同时获得这个线程的handle?
- 这个全局钩子为什么只能钩住本程序的消息?
- 现在开发一个组件,组件中有一个类,类中有一个变量,该变量根据运行时的情况不同而不同,在组件中的另外一个文件中(unit),访问该类中
- 关于如何插入动态的gif图片?(在线等待)
- 请问我在两个datetimepicker控件中分别选择日期,想取两个日期之间相差几天,怎么做呀?谢谢!
- installshield制作安装程序,如何添加系统搜索路径?
- 如何给Quickreport1.page.pagesize赋值?
- MIS系统中金额字段一般都用什么数据类型?
- 关于局域网通信的问题
- 要做个东西类似filemon,把用户对文件操作的情况记录进数据库……
- 怎样使用TSQLStoreProc调用SQL Server的存储过程呢?
begin
showmessage(IntToStr(DBGrid1.SelectedIndex));
showmessage(inttostr(Table1.RecNo))//行号也就相当于记录号end;
TCustomGrid.MouseCoord
这个怎么用呀
THackDBGrid = Class(TDBGrid);
.. THackDBGrid(DBGrid1).Row;
THackDBGrid(DBGrid1).Col;
begin
wi:=wi+DBGrid1.Columns[n].Width;
end;自己调整精确值
tdgridex=class(tdbgrid)
end;
//获取当前行
currow:=tdbgridex(dbgrid1).row;
curcol:=tdbgridex(dbgrid1).col;
//获取当前单元格坐标
procedure TForm1.DBGrid1CellClick(Column: TColumn);
begin
button1.Height:=tdrawgrid(dbgrid1).cellrect(tdrawgrid(dbgrid1).Col,
tdrawgrid(dbgrid1).Row).Bottom-tdrawgrid(dbgrid1).cellrect(tdrawgrid(dbgrid1).Col,
tdrawgrid(dbgrid1).Row).Top;
button1.Width:=button1.Height;
button1.Top:=tdrawgrid(dbgrid1).cellrect(tdrawgrid(dbgrid1).Col,
tdrawgrid(dbgrid1).Row).Top+dbgrid1.Top;button1.Left:=tdrawgrid(dbgrid1).cellrect(tdrawgrid(dbgrid1).Col,
tdrawgrid(dbgrid1).Row).Left+column.Width+dbgrid1.left-button1.Height ;end;
{
i := DBGrid1.SelectedIndex; 当前列
i i= DBGrid1->SelectedRows; 当前行
其中参数Rect是他的具体位置(width,height,left,top)
}
j:=DBGrid1.DataSource.DataSet.RecNo //当前行