Hallo, ich habe den folgenden Code:
Code
procedure TDesignerForm.btnTabelle_erzeugenClick(Sender: TObject);
var
table, row, cell: TParagraph;
block : TWPRTFDataBlock;
i, c, SpaltenAnzahl: Integer;
begin
// Anzahl der Spalten aus dem Edit-Feld holen
SpaltenAnzahl := StrToIntDef(edtSpalten.Text, 5); // Standardwert: 5 Spalten
try
block := WP.BodyText;
block.Clear(true);
table := block.AppendNewPar(true);
table.ParagraphType := wpIsTable;
// Erste Reihe mit Namen der Spalten
row := table.AppendChild;
row.ParagraphType := wpIsTableRow;
for c := 1 to SpaltenAnzahl do
begin
cell := row.AppendNewCell;
cell.SetText('Spalte ' + IntToStr(c));
// Rahmen
cell.ASet(WPAT_BorderFlags, WPBRD_DRAW_All4);
cell.ParProtected := True;
end;
// Weitere Reihen mit Beispielinhalt
for i := 1 to 2 do
begin
row := table.AppendChild;
row.ParagraphType := wpIsTableRow;
for c := 1 to SpaltenAnzahl do
begin
cell := row.AppendNewCell;
cell.SetText(Format('%d - %d', [i, c]));
// Rahmen
cell.ASet(WPAT_BorderFlags, WPBRD_DRAW_All4);
end;
end;
WP.ReformatAll(true, true);
finally
end;
end;
Alles anzeigen
Ich habe den Code aus Ihrem Demo-Beispiel verwendet, um die Tabelle zu erstellen. In Zeile 27 versuche ich, die Spaltenüberschriften der Tabelle vor der Bearbeitung zu schützen. Aber ohne Erfolg. Was ist der richtige Weg, dies zu tun? Danke im Voraus.