问题1.点击DBGird右边滚动条擦看最后一行后,最后一行被自动设置为蓝色,象被选中了一样。
解决办法:
procedure TForm1.DBGrid1DrawDataCell(Sender: TObject; const Rect: TRect;
Field: TField; State: TGridDrawState);
begin
if Field.AsString='Canada' then
begin
DBGrid1.Canvas.Brush.Color:=clBtnFace;
DBGrid1.Canvas.FillRect(Rect);
end;
end;问题2.DBGird中可多行选择,如何模拟windows标准的块选择,取消(shift+mouse 右键,Ctrl+mouse 右键)。
解决办法:
option中选中多选。
解决办法:
procedure TForm1.DBGrid1DrawDataCell(Sender: TObject; const Rect: TRect;
Field: TField; State: TGridDrawState);
begin
if Field.AsString='Canada' then
begin
DBGrid1.Canvas.Brush.Color:=clBtnFace;
DBGrid1.Canvas.FillRect(Rect);
end;
end;问题2.DBGird中可多行选择,如何模拟windows标准的块选择,取消(shift+mouse 右键,Ctrl+mouse 右键)。
解决办法:
option中选中多选。
解决方案 »
免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货