4871
社区成员
- 全部
- 语言基础/算法/系统设计
- 数据库相关
- 图形处理/多媒体
- 网络通信/分布式开发
- VCL组件开发及应用
- Windows SDK/API
- 问答
...全文
当前发帖距今超过3年，不再开放新的回复
发表回复
Magusflp008 2005-05-25
Kshape([伟大的大伟!]) : 我想实现的是当输入焦点在某个单元格上时，用一个别的控件覆盖在该单元格上。所以要知道单元格的坐标
naner_china(naner)： 如果不是鼠标移动，是通过tab将焦点转到那个单元格上时呢？
naner_china(naner)： 如果不是鼠标移动，是通过tab将焦点转到那个单元格上时呢？
naner_china 2005-05-25
procedure TForm1.DBGrid1MouseMove(Sender: TObject; Shift: TShiftState; X,
Y: Integer);
var
g_x,g_y:integer;
begin
g_x := x;
g_y := y;
edit1.Text := inttostr(g_x);
edit2.Text := inttostr(g_y);
end;
Y: Integer);
var
g_x,g_y:integer;
begin
g_x := x;
g_y := y;
edit1.Text := inttostr(g_x);
edit2.Text := inttostr(g_y);
end;
Kshape 2005-05-25
如果是鼠标点单元格可以这样
procedure TForm1.DBGrid1CellClick(Column: TColumn);
begin
showmessage(IntToStr(DBGrid1.SelectedIndex));
showmessage(inttostr(Table1.RecNo))//行号也就相当于记录号
end;
如果是选中一行
那么这样就可以了:
当前行号：DBGrid1.DataSource.DataSet.RecNo
当前列：DBGrid1.SelectedIndex
procedure TForm1.DBGrid1CellClick(Column: TColumn);
begin
showmessage(IntToStr(DBGrid1.SelectedIndex));
showmessage(inttostr(Table1.RecNo))//行号也就相当于记录号
end;
如果是选中一行
那么这样就可以了:
当前行号：DBGrid1.DataSource.DataSet.RecNo
当前列：DBGrid1.SelectedIndex
Magusflp008 2005-05-25
怎麼沒有人阿
