实现TStringGrid的左对齐、居中和右对齐

//sgrdQty: TStringGrid

procedure TfrmPDStock.sgrdQtyDrawCell(Sender: TObject; ACol, ARow: Integer;

Rect: TRect; State: TGridDrawState);

var

sText: String;

iTextWidth: Integer;

rNum: Double;

begin

inherited;

with sgrdQty do

begin

sText := Cells[ACol, ARow]; //輸出內容

iTextWidth := canvas.TextWidth(sText); //輸出內容寬度

//

if ARow = 0 then

Canvas.TextRect(Rect, (Rect.left+Rect.right-iTextWidth) div 2, Rect.Top+2, sText) //第1行, 居中

else if ACol = 0 then

Canvas.TextRect(Rect, Rect.Left+2, Rect.top+2, sText) //第1列, 左對齊

else

begin

//如果<0以紅色顯示

if TryStrToFloat(sText, rNum) and (rNum < 0) then

Canvas.Font.Color := clRed

else

Canvas.Font.Color := clWindowText;

//

Canvas.TextRect(Rect, Rect.right - iTextWidth - 2 ,Rect.Top + 2, sText); //其它, 右對齊心

end;

end;

end;