請問各位!    以下是我的StringGrid 的 onDrawCell程式碼, 主要目的是控制 cell的底色 但如果加上這段後, 原本 StringGrid 是可以用滑鼠來拖曳設定 cell 的區段 例如我想要把 cell(1,1)到 cell(3,5)都mark起來, 用拖曳方式可以很明顯的 看到這塊區域被反藍出來, 那我現在加了這段就無法出現這樣的功能, 不知各 位知道要如何改否? 謝謝!    

procedure TForm_Part.stgSpecDrawCell(Sender: TObject; ACol, ARow: Integer;
  Rect: TRect; State: TGridDrawState);
        var xCol, xWidth: integer;
            xRow, xHeight: integer;
begin
     with Sender as TStringGrid do  begin
       if (Cells[ACol, ARow]='√') then begin
         Canvas.Brush.Color:= clGreen; //底色
         Canvas.Font.Color:= clWhite;  //字體顏色
       end
       else begin
         if (ACol<>0) and (ARow<>0) then begin
            Canvas.Brush.Color:= clGray;
            Canvas.Font.Color:= clBlack;
         end;
       end;
       if (ARow=nRow) and (ACol=nCol) then begin
          Canvas.Brush.Color:= $00C08080;
          Canvas.Font.Color:= clBlack;
       end;
       xRow:= Round(stgSpec.DefaultRowHeight);
       xCol:= Round(stgSpec.DefaultColWidth);
       xHeight:= Abs(stgSpec.Font.Height);
       xWidth:=  9 * Length(Cells[ACol,ARow]);
       xRow:= Round((xRow-xHeight)/2);
       if (ARow=0) or ((ARow<>0) and (ACol<>0)) then xCol:= Round((xCol-xWidth)/2)
       else xCol:= 2;
       Canvas.FillRect(Rect);  //繪底色
       Canvas.textout(Rect.Left xCol,Rect.Top xRow,Cells[ACol,ARow]); //output text
     end;
end;    

I think you should test the State value.... e.g.

    if State=gdSelected then begin
        {...}
    end
    else begin
        {...}
    end;

引言: I think you should test the State value.... e.g.

    if State=gdSelected then begin
        {...}
    end
    else begin
        {...}
    end;

謝謝! 可以了!