各位高手，程式界的賢達，業界的翹楚你們好: 一般在DBGrid中都會用藍色顯示你目前是點選(或者是用TAB鍵在移動時顯示藍色)哪一個Column但是我有一個DBGrid加上了以下的程式碼之後藍色顯示卻不見了，請問各位高手是怎麼回事，因為沒有顏色顯示目前是再哪一個Column對使用者來說很不方便 謝謝K.TOP的眾高手 有你們世界變的更美好 程式碼如下: procedure TfmCIC01000.InfoDBGrid2DrawColumnCell(Sender: TObject; const Rect: TRect; DataCol: Integer; Column: TColumn; State: TGridDrawState); begin inherited; //訂購明細--綠色表示有未交數量 InfoDBGrid2.Canvas.Font.Color := clBlue; if (Column.Index >=6) and (Column.Index <=7) then InfoDBGrid2.Canvas.Brush.Color := clSilver else InfoDBGrid2.Canvas.Brush.Color := clwindow; if cdsDetailODD08.AsInteger > 0 then //ODD08未交數量 InfoDBGrid2.Canvas.Font.Color := clGreen; InfoDBGrid2.Canvas.FillRect(Rect); InfoDBGrid2.DefaultDrawColumnCell(Rect,DataCol,Column,State); end;

您好： 您少寫了顯示被選取的那一行，如下面紅色所示：

procedure TForm1.infoDbgrid2DrawColumnCell(Sender: TObject; const Rect: TRect;
  DataCol: Integer; Column: TColumn; State: TGridDrawState);
begin
inherited; //訂購明細--綠色表示有未交數量
if (gdSelected in State) then
 begin
  InfoDBGrid2.Canvas.Font.Color:=clWhite;
  InfoDBGrid2.Canvas.Brush.Color:=clBlue;
 end
 else begin
InfoDBGrid2.Canvas.Font.Color := clBlue;
if (Column.Index >=6) and (Column.Index <=7) then
InfoDBGrid2.Canvas.Brush.Color := clSilver
else
InfoDBGrid2.Canvas.Brush.Color := clwindow;
if cdsDetailODD08.AsInteger > 0 then //ODD08未交數量
InfoDBGrid2.Canvas.Font.Color := clGreen;
end;
InfoDBGrid2.Canvas.FillRect(Rect);
InfoDBGrid2.DefaultDrawColumnCell(Rect,DataCol,Column,State);
end;

supman:謝謝你!大感激