dbgrid的drawcolumucell属性:
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;dbgrid的readonly属性:
dbgrid1.field('fieldname').readonly:=true(fieldname字段不能改)
dbgrid的ontileclick属性:
可以实现排序。
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;dbgrid的readonly属性:
dbgrid1.field('fieldname').readonly:=true(fieldname字段不能改)
dbgrid的ontileclick属性:
可以实现排序。
解决方案 »
免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货