Ich hab´s doch noch raus gefunden.
Mit dem dem Code kann man eine Zelle auf die gesamte Breite des Grids erweitern.
(ähnlich wie "merge cells" in Excel)
Delphi-Quellcode:
procedure TRule_Form.OutGridDrawCell(Sender: TObject; ACol, ARow: Integer;
Rect: TRect; State: TGridDrawState);
var
i,y,x:integer;
begin
If aCol = 0 Then Exit;
If gdFixed In State Then Exit;
If OutGrid.Cells[0,arow] <> 'Message' Then exit;
with sender as tstringgrid do begin
// Komplette Zeile mit dem Text von Spalte 1 füllen
If aCol < Pred(ColCount) Then
Rect.Right := Rect.Right + GridlineWidth;
y:= Rect.Top + 2;
x:= Rect.Left + 2;
for i:= 1 to aCol-1 do
x:= x - ColWidths[i] - GridlineWidth;
{ Paint Zellenhintergrund weiß}
Canvas.Brush.Color := $FFFFFF;
Canvas.Brush.Style := bsSolid;
Canvas.FillRect( Rect );
Canvas.TextRect( Rect, x, y, Cells[1,arow] );
end;
end;