在下用StringGrid將某幾列特殊的記錄以另一顏色填滿 卻造成所有欄位的字都無法顯示... 請教各位前輩..要如何才能把字再秀出  

procedure TFm_cube.SGRID_CUBEDrawCell(Sender: TObject; Col, Row: Integer;
  Rect: TRect; State: TGridDrawState);
  VAR CANVAS:TCANVAS;
begin
CANVAS :=(SENDER AS TSTRINGGRID).CANVAS;
IF (TSTRINGGRID(SENDER).CELLS[1,ROW]<>'') AND (ROW<>0)  THEN
CANVAS.BRUSH.COLOR :=$00A9DEAF;
CANVAS.FillRect(RECT);
end; 

if you lose your step,just tango on

------
if you lose your step,just tango on

引言: 在下用StringGrid將某幾列特殊的記錄以另一顏色填滿 卻造成所有欄位的字都無法顯示... 請教各位前輩..要如何才能把字再秀出

procedure TFm_cube.SGRID_CUBEDrawCell(Sender: TObject; Col, Row: Integer;
  Rect: TRect; State: TGridDrawState);
  VAR CANVAS:TCANVAS;
begin
CANVAS :=(SENDER AS TSTRINGGRID).CANVAS;
IF (TSTRINGGRID(SENDER).CELLS[1,ROW]<>'') AND (ROW<>0)  THEN
CANVAS.BRUSH.COLOR :=$00A9DEAF;
CANVAS.FillRect(RECT);
end; 

if you lose your step,just tango on

當然會不見...因為你沒有把字也給畫上去... 請加入這一行 StringGrid1.Canvas.TextOut 這樣子就可以了

找到了.. Canvas.TextRect(Rect,Rect.Right-Canvas.TextWidth((SENDER AS TSTRINGGRID).Cells[Col, Row])-8, Rect.top 2, (SENDER AS TSTRINGGRID).Cells[Col, Row]); THANKS.. if you lose your step,just tango on

------
if you lose your step,just tango on