4893
社区成员
...全文
当前发帖距今超过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
怎麼沒有人阿
Delphi DbGrid 获取正在输入的单元格内容 在Delphi中，使用DbGrid 作为输入使用时，输入后，可以使用对应的字段名称获取内容，譬如DbGrid1.SelectField.AsString，但这有个前提，就是必须当前单元格的焦点转移，跳到其他单元格才可以取到值。如果想不转移...
DBGrid的输入焦点控制 在dbgrid这个控件中，当前输入焦点列的设置是通过selectedIndex来控制的。如果我们想在用户按Enter后切换到下一列，可以在dbgrid的keypress事件里添加处理逻辑: if key = #13 then begin ifdbg...
Delphi 改变DBgrid控件选中时的单元格颜色.rar Delphi 改变DBgrid控件选中时的单元格颜色，一般在默认状态下，DBgrid在行被选中时是深蓝色的，本程序将改变这个深蓝色为用户自定义颜色。操作方法很简单：当选中DBgrid任意行时，点击上部的任意颜色值，此时就已经...
Delphi DBGrid双击事件、单元格操作 1、得到当前格子中的内容： DBGrid1.Fields[DBGrid1.SelectedIndex].DisplayText; 把DBGrid1.SelectedIndex改为你所希望引用的字段就可以了，如第3个字段。 DBGrid1.Fields[3].DisplayText; 2、双击单元格触发...
获取Dbgrid当前选中的行号和列号？（经典） 从这个例子中我们不难得到这样的启示，当我们无法从当前使用的类直接获取我们需要的信息时，不要急于求成而绕弯路，我们可以去考察一下它的基类（基类的基类…，一直找上去），是否为我们提供了我们需要的信息。...
DBGrid 当前行号、第一列不动 1.QQ:513187410 2.保证无毒 3.简单,方便,实用 4.实例可以自行改用 5.如有非法,本人无法律责任,由改动代码人负责！ 6.需要更多本人作品,查找标签“朱建强” 7.请下载,杀毒后再使用！
Delphi在DBGrid中按照指定条件改变单元格的颜色 DBGrid的OnDrawColumnCell事件begin if (你需要指定的条件) then //如某一列的值=指定值 begini DBGrid.Canvas.Font.Color := clred; //满足条件时，显示的字体颜色为“红色”// DBGrid.Canvas.Brush.Color := ...
取DBGRID内一个单元格内的值 type TDBGridEx = class(TDBGrid) function GetValue(row, col: ...设置当前行应该用如下： self.DataSource.DataSet.First; self.DataSource.DataSet.MoveBy(row); self.Col := col; 注意异常处理
Delphi AdvStringGrid 界面刷新后，让某单元格获取焦点 AdvStringgrid.FocusCell(c, r)只能让某个单元格处于被选中状态，但是并不能获取焦点， 想要获取焦点的方法是： AdvStringgrid.Col := r; AdvStringgrid.row := c; AdvStringgrid.SetFocus;
设置DBGrid单元格颜色 一、设置某个单元格颜色： if Column.FieldName=BookListNO then //按字段为BookListNO的列,来显示单元格颜色 begin DBGM.Canvas.Brush.Color := clyellow; //clRed; clgreen 背景色 DBGM.Default
