如何在ListView或者DbgidGrid中当鼠标移到其上某一条。。?(50分)

  • 主题发起人 主题发起人 chunfly
  • 开始时间 开始时间
C

chunfly

Unregistered / Unconfirmed
GUEST, unregistred user!
如何在ListView或者DbgidGrid中当鼠标移到其上某一条记录时
在状态栏中(或者文本框)中显示其记录号?
我在OnMourseMove中看只有(...X,Y:Integer)属性,如何得到此行呢?
请大虾帮忙啊
 
用MouseCoord(X,Y)返回行列号啊
 
如何改变显示的行的字体颜色呢?有具体例子吗?
 
procedure TForm1.Table1AfterScroll(DataSet: TDataSet);
begin
showmessage(floattostr(tabl1.recno);
end;
 
用mousecoord只在grid中有用,Listview中没有用
 
在ListView中不是有熱跟蹤嗎﹖
 
在ListView中用GetItemAt
如何改变显示的行的字体颜色呢?
你如果仅仅用DBGrid,可没那么简单做得到了,你可以参考IP中的wwDBGrid改变字体的例子
去研究一下
 
to 0738
你可以参考IP中的wwDBGrid改变字体的例子?
请问你有wwDBGrid的源代码吗?

谁有的话email给我一份,一定多加分!
 
网上有很多地方可以下载的,你去www.51Delphi.com看看,那里好像有inforpower,而且
是代源码的
 
to 0738
找不到啊,找到几个可是都没有源代码的
 
不会吧,应该都是安装程序,安装完成后在安装目录中有个Source子目录就是源程序啊
 
DBGrid控件是一个有许多用户接口的显示数据库的控件,以下的程序告诉您如何根据显示的内容改变字体的显示颜色。例如,如果一个城市的人口大于200万,我们就让它显示为蓝色。使用的控件事件为DBGrid.OnDrawColumeCell.

procedure TForm1.DBGrid1DrawColumnCell(Sender: TObject; const Rect:TRect;DataCol: Integer; Column: TColumn; State: TGridDrawState);

begin

if Table1.FieldByName('Population').AsInteger > 20000000 then

DBGrid1.Canvas.Font.Color := clBlue;

DBGrid1.DefaultDrawColumnCell(Rect, DataCol, Column, State);

end;

上面的例子是简单的,但是你可以根据自己的需要扩充,例如字体也变化等,甚至你可以调用画圆的函数在数字上画上一个红色的圆圈。
 
to xzfyes2
我要的是
当鼠标移到DbGrid其上某一条记录时
在状态栏中(或者文本框)中显示其记录号,并改变此行的颜色字体等!
我在OnMourseMove中看只有(...X,Y:Integer)属性,如何得到此行呢?
 
高手快来帮忙啊!
 
不是有人说要用MouseCoord(x,y)吗???
 
listview能不能做的象网络蚂蚁的信息显示区那样?
就是可以每一行的背景色不同?
 
listview能不能做的象网络蚂蚁的信息显示区那样?
就是可以每一行的背景色不同?
 
listview能不能做的象网络蚂蚁的信息显示区那样?
就是可以每一行的背景色不同?

 
把OwnerDraw属性改成True,再在OnCustomDrawItem事件自己绘制每一项Item,在OnCustomDrawSubItem中自己绘制每一项SubItem!
 
后退
顶部