Dear all: 請問.我要在DbGrid 所在的指標更改整列的顏色. 且.就算離開移到別的元件,顏色扔不會改變.. 現在的DbGrid setFocue會改變為藍色,但是移開後顏色就會消失,且不是整列的變色 Vincent wei

Hi weiliching,    試試這樣，判斷 gdSelected & gdFocused

procedure TQueryForm.DBGrid_FORECASTSDrawColumnCell(Sender: TObject;
  const Rect: TRect; DataCol: Integer; Column: TColumn;
  State: TGridDrawState);
begin
    IF ((State = [gdSelected,gdFocused]) OR (State = [gdSelected]) OR (State = [gdFocused])) THEN
        BEGIN
            (Sender AS TDBGrid).Canvas.Brush.Color := clHighlight;
            (Sender AS TDBGrid).Canvas.Brush.Style := bsSolid;
            (Sender AS TDBGrid).Canvas.Font.Color := clHighlightText;
            (Sender AS TDBGrid).DefaultDrawColumnCell(Rect,DataCol,Column,State);
        END;
end;

---------------------------------- 小弟才疏學淺，若有謬誤尚請不吝指教 ----------------------------------

------
Fishman

請調整您的 DBGrid 的屬性, 方法如下 DBGrid1.Options.dgAlwaysShowSelection := True; {預設為 False}