一个关于dbgrid的问题?
怎样能使grid在没有数据的情况下显示网格??
如何更改背景??
并且在grid的背景下能够显示 '没有数据 ' 字符串??
我查了查 dbgrideh 不知道在哪里??
[解决办法]
procedure Trywhf.DBGrid1DrawColumnCell(Sender: TObject; const Rect: TRect;
DataCol: Integer; Column: TColumn; State: TGridDrawState);
var
C1, C2: TColor;
begin
if gdSelected in State then
begin
with TDBGrid(Sender).Canvas do
begin
C1 := Brush.Color;
C2 := Font.Color;
Brush.Color := ClRed;//红底
Font.Color := Clyellow;//黄字
TDBGrid(Sender).DefaultDrawColumnCell(Rect, DataCol, Column, State);
Brush.Color := C1;
Font.Color := C2 ;
end;
end;
end;