关于本版（控件 - 开发子版块）的声明(200)

为了论坛能更好的发展下去，聚集更多的人气，也为了尊重那些回答问题的朋友的智慧，特声明：凡在本子板块发0分贴者，删之！！！同意的朋友请跟贴啊！！！小弟不才，刚升任版主，还望大家支持啊~~~希望与大家共同学习进步~~

恭喜担任版主！

谢谢了~~看着大富翁现在的样子，想为大富翁做点贡献~~

这样不好吧,别个要是有问题,又恰好没有分呢,不要一刀切哦

每天登陆一次都会有几分的，哪怕10分也可以，我同意版主的提议。大富翁现在还有斑竹啊，难得，我以为没人管理呢

同意版主的提议，N久没见过DFW的版主了

恭喜版主,作为一个初学者,我非常感谢能这么个学习的地方,能得到大家的帮助,在此我表示真诚的感谢,为那些为别排扰解难的同仁同表示感谢,为为了让我们能得帮助的版主表示感谢!小弟在此有一个小小建议,希望参与答复的同仁多多关注你曾回复的回题,比如我有一些问题,得到了答案可就是实现不了,又想再找回复我问题的同仁请教,可就是再没有回复了,真的知如何是好,我希望版内的每一个问题都能有最好的答案!不当之处望版主原宥!

版主,打扰了,实在是找不到很好的方法的联系你了,所以只有借此打扰你了,望谅!我在12日在论坛里提出下面的问题.并得到你的答案.可我的问题还是没有解决,很急!!所以打扰你了!如何在dbgrideh第一列中显示行号？？？ procedure TFMOutsstorage.ADODataSet1FnoGetText(Sender: TField; var Text: String; DisplayText: Boolean);begin text:=inttostr(ADODataSet1.RecNo);end;我是在ADODataSet1中新增了一个虚字段Fno ，这样可以显示行号，但每次按向下箭头新增纪录时 总是所有行号纪录均变成-1, 当重点击上一条记录时,行号又正常显示了! ！！！ OnDrawColumnCell事件中 begin if Column.Index=0 then with DBGridEH1.Canvas do begin FillRect(Rect); TextOut(Rect.Left+2,Rect.Top+2,IntToStr(DBGridEH1.DataSource.DataSet.RecNo)); end; end;

不好意思~~现在才回复~~以下是网上Dbgrid的，我已经改为DBGRIDEH测试通过~var di:integer;//全局变量 bflag,bflag2:boolean; //全局变量procedure Tfm1.ds1StateChange(Sender: TObject);//数据库的StateChangebegin if dbgrideh1.DataSource.DataSet.State <>dsbrowse then begin di:=dbgrideh1.DataSource.DataSet.RecordCount+3 -TDrawGrideh(DBgrideh1).RowCount ; bflag := true; end else bflag:=false;end;procedure Tfm1.DBGridEh1DrawColumnCell(Sender: TObject; const Rect: TRect; DataCol: Integer; Column: TColumnEh; State: TGridDrawState);var rect1:TRect; sValue :string; ss:boolean; begin if DataCol = 0 then //設置在第一列 begin if DBGridEH1.DataSource.DataSet.state<>dsInsert then di:= DBGridEH1.DataSource.DataSet.recno; Rect1 := Rect; with DBGridEH1 do begin Canvas.Brush.Color:=clBtnFace; sValue:=IntToStr(di); Canvas.FillRect(Rect1); Canvas.Pen.Width:=1; Canvas.Pen.Color:=clWhite; Canvas.MoveTo(Rect1.Left,Rect1.Bottom); Canvas.LineTo(Rect1.Left,Rect1.Top); Canvas.LineTo(Rect1.right,Rect1.Top); Canvas.Pen.Color:=clBtnShadow; Canvas.LineTo(Rect1.right,Rect1.Bottom-1); Canvas.LineTo(Rect1.Left,Rect1.Bottom-1); Rect1.Top:=Rect1.Top+1; if State=[gdSelected,gdFocused] then begin if bflag=true then begin sValue:=inttostr(datasource.DataSet.RecordCount+1); di:=datasource.DataSet.RecordCount +1; ss:=true; end; Canvas.Font.Color := clred; end else begin Canvas.Font.Color := clgreen; end; DrawText(Canvas.Handle,PChar(sValue),Length(sValue),Rect1,DT_CENTER); end; if di<=DBGridEH1.DataSource.DataSet.RecordCount then begin inc(di); end else begin if (ss<>true) then di:=DBGridEH1.DataSource.DataSet.RecordCount+3 -TDrawGrid(DBGridEH1).RowCount ; end; end else bflag2:=false;end;procedure Tfm1.DBGridEh1ColEnter(Sender: TObject);beginif (bflag=true)and (dbgrideh1.SelectedField.FieldNo <>1) then begin di:=dbgrideh1.DataSource.DataSet.RecordCount+3-Tdbgrideh(dbgrideh1).RowCount; dbgrideh1.Refresh; end; end;procedure Tfm1.DBGridEh1ColExit(Sender: TObject);begin if (bflag=true)and (dbgrideh1.SelectedField.FieldNo =1) then begin di:=dbgrideh1.DataSource.DataSet.RecordCount+1; dbgrideh1.Refresh; end;end;

谢谢版主!

新版主应该写个软件, 把建站以来没结的帖子给结了.这才是工作.大富翁向来没有删帖传统, 一旦有广告帖, 大家都把广告给顶后面去.这叫大富翁精神.只要是问问题, 0分也是分啊.一上任就扬言要删帖,不...太好吧, 哈哈, 中国人讲究谦虚, 纪律是要的, 但是表达要婉转, 新官上任最好趴着, 万一得罪哪个牛人, 写个程序, 1天发10万个0分帖让你删个够.你吃得消吗?希望新版主多多带我们这些菜鸟哈.

不好意思~~呵呵~~我也不是什么高手~~我的权限只能结“控件 - 开发”版~~~言语有得罪，请海涵~