关于dbgrid的透明属性的问题(200分)

大家好，众所周知，label 有个transparent属性，可以使它变得透明，请问如何
把dbgrid改造成具有透明属性的构件。推荐网站也可以。谢谢！

你想实现一个什么样的功能，或者想要什么效果还没有见过dbgrid的transparent
有可以加背景的不知能不能满足你的要求

transparent的没见过，自己写代码创建看行不行

robertcool,你好！如果有能带背景的dbgrid，请提供先，谢谢！

infopower 和 Devexpress里的dbgrid都可以带背景，你可以去下载一个

关注

buresh如何呀

我也正在做该控件，已实现其透明属性。
现想实现合并与拆分等功能，
但一时不知用什么样的数据结构，所以暂时放下了。
如果你有兴趣可以一起讨论。
OICQ：4978583。

cosher,可否将你的构件发过来参考一下？

我也想要，能贴过来吗？谢谢。
slxiaodong@163.com

cosher我也想要，
kevin@crcalky.com

procedure TForm1.DBGrid1DrawDataCell(Sender: TObject; const Rect: TRect;
Field: TField; State: TGridDrawState);
var
Text: string;
Rct: TRect;
begin
Text := Field.AsString;
Rct:= Rect;

BitBlt(DBGrid1.Canvas.handle,
Rct.left,
Rct.top,
Rct.right - Rct.left,
Rct.bottom - Rct.top,
Image1.Canvas.Handle,
Rct.left + DBGrid1.Left + Panel1.Left,
Rct.Top + DBGrid1.Top + Panel1.Top,
SRCCOPY);

SetBkModE(DBGrid1.Canvas.Handle, TRANSPARENT);
DBGrid1.Canvas.Font.Style := [fsBold];
DrawtextEx(DBGrid1.Canvas.Handle,
PChar(Text),
Length(Text),
Rct,
DT_WORDBREAK,
nil);
end;