我给你自己化的例子: Text :=Cells[ACol, ARow]; if ARow < 2 then begin Canvas.Brush.Color:=clBtnFace; if (ARow=0) and (ACol in[0,1,2,3]) then begin Canvas.Font.Color := clBlack; Canvas.TextOut(Rect.Left+(Rect.Right-Rect.Left-Canvas.TextWidth(Text))div 2, Rect.Top+1+RowHeights[ARow] div 2 ,Text); end; if (ARow=1) and (ACol in[0,1,2,3]) then begin Canvas.Font.Color := clBlack; Canvas.TextOut(Rect.Left+(Rect.Right-Rect.Left-Canvas.TextWidth(Text)) div 2,Rect.Top+1-RowHeights[ARow]div 2 ,Text); 以上代码把1,2行的1,2,3,4,列内容合在一起要求合一起的两个单元格的内容相同!
Use OwnerDraw.
yes....you are correct.
Text :=Cells[ACol, ARow]; if ARow < 2 then
begin
Canvas.Brush.Color:=clBtnFace;
if (ARow=0) and (ACol in[0,1,2,3]) then
begin
Canvas.Font.Color := clBlack;
Canvas.TextOut(Rect.Left+(Rect.Right-Rect.Left-Canvas.TextWidth(Text))div 2, Rect.Top+1+RowHeights[ARow] div 2 ,Text);
end;
if (ARow=1) and (ACol in[0,1,2,3]) then
begin
Canvas.Font.Color := clBlack;
Canvas.TextOut(Rect.Left+(Rect.Right-Rect.Left-Canvas.TextWidth(Text)) div 2,Rect.Top+1-RowHeights[ARow]div 2 ,Text);
以上代码把1,2行的1,2,3,4,列内容合在一起要求合一起的两个单元格的内容相同!