Delphi的DBGrid可以变色吗?受人之托,谢谢啦! 字体变色?在OnDrawColumn事件中写入,用画布去修改! 解决方案 » 免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货 在paradox数据库中可以实现斑马线,但在Access、SQL中就无法实现。斑马线即第一行为灰色,第二行为白色,第三行灰色,第四行为白色。请高手为我解决??(以下程序能实现斑马线,但程序不够稳定)procedure TForm1.DBGrid1DrawColumnCell(Sender: TObject; const Rect: TRect; DataCol: Integer; Column: TColumn; State: TGridDrawState);var iRow,iGridHeight : Integer;begin iGridHeight := Rect.Bottom - Rect.Top; iRow := (Rect.Top - iGridHeight ) div iGridHeight; if iRow mod 2 = 0 then dbgrid1.canvas.Brush.color:=$00EAEAEA; dbgrid1.DefaultDrawcolumnCell(rect,datacol,column,state);end; (以下程序能在Paradox中实现斑马线,但不能在Access、SQL中实现)procedure TForm1.DBGrid1DrawColumnCell(Sender: TObject; const Rect: TRect; DataCol: Integer; Column: TColumn; State: TGridDrawState);begin if query1.recno mod 2<>0 then dbgrid1.canvas.Brush.color:=$00eaeaea; dbgrid1.DefaultDrawcolumnCell(rect,datacol,column,state);end; 使用heapCreate的一些问题! 字符串与listview之间显示选择的关系 大家帮我看看这个程序有什么问题(关于listbox) delphi版本兼容/声明错误问题???求助大家了 2004年难过,被原所在公司整的真够惨,散分,去去晦气 问一下很基础的问题,但小弟不会,就是退出for偱环的问题,现在有几个for偱环,我想退出某一个for偱环如何做呢?例子如下。 如何从mcisendstring中返回position和length?? 时间问题!帮帮忙! 请教 好象被宝兰愚弄 如何接收window的关机消息,并使机器转为睡眠? 请教键盘输入响应
procedure TForm1.DBGrid1DrawColumnCell(Sender: TObject; const Rect: TRect;
DataCol: Integer; Column: TColumn; State: TGridDrawState);
var
iRow,iGridHeight : Integer;
begin
iGridHeight := Rect.Bottom - Rect.Top;
iRow := (Rect.Top - iGridHeight ) div iGridHeight;
if iRow mod 2 = 0 then dbgrid1.canvas.Brush.color:=$00EAEAEA;
dbgrid1.DefaultDrawcolumnCell(rect,datacol,column,state);
end; (以下程序能在Paradox中实现斑马线,但不能在Access、SQL中实现)
procedure TForm1.DBGrid1DrawColumnCell(Sender: TObject; const Rect: TRect;
DataCol: Integer; Column: TColumn; State: TGridDrawState);
begin
if query1.recno mod 2<>0 then dbgrid1.canvas.Brush.color:=$00eaeaea;
dbgrid1.DefaultDrawcolumnCell(rect,datacol,column,state);
end;