相关疑难解决方法(0)

我正试图让我的StringGrid中的文本居中.经过一些研究后,我想出了这个由其他人发布的函数,当在DefaultDraw上使用时:False应该有效.

procedure TForm1.StringGrid2DrawCell(Sender: TObject; ACol, ARow: Integer;
 Rect: TRect; State: TGridDrawState);
var
  S: string;
  SavedAlign: word;
begin
  if ACol = 1 then begin  // ACol is zero based
   S := StringGrid1.Cells[ACol, ARow]; // cell contents
    SavedAlign := SetTextAlign(StringGrid1.Canvas.Handle, TA_CENTER);
    StringGrid1.Canvas.TextRect(Rect,
      Rect.Left + (Rect.Right - Rect.Left) div 2, Rect.Top + 2, S);
    SetTextAlign(StringGrid1.Canvas.Handle, SavedAlign);
  end;
end;

但是,如果我设置DefaultDraw:False,则StringGrid只显示glitchey.

函数中用文本填充StringGrid的行是

Sg.RowCount := Length(arrpos);
for I := 0 to (Length(arrpos) - 1) do
 begin
   sg.Cells[0,i] := arrpos[i];
   sg.Cells[1,i] := arrby[i];
 end;

arrpos和arrby是字符串数组.sg是StringGrid.

之后我需要执行文本以显示在单元格的中心.

UPDATE …