关于StringGrid的字体对齐问题

Question

我在使用StringGrid组件过程中，无法将StringGrid的Cell中的文字按照想要的方式对齐（例如第0行中间对齐，其他行左对齐），如何处理？

Answer 1

在StringGrid的DrawCell事件中添加类似的代码就可以了：VARvCol, vRow : LongInt;beginvCol := ACol; vRow := ARow;WITH Sender AS TStringGrid, Canvas DOIF vCol = 2 THEN BEGIN ///对于第2列设置为右对齐SetTextAlign(Handle, TA_RIGHT);FillRect(Rect);TextRect(Rect, Rect.RIGHT-2, Rect.Top+2,Cells[vCol, vRow]);END;end;