Hallo zusammen,
ich möchte gern eine Tabelle erstellen, deren Inhalt unveränderbar ist. Die Tabelle als ganzes soll jedoch gelöscht werden können.
Beispiel:
Code
wpRichtext.ProtectedProp := [ppParProtected];
...
Procedure CreateTable;
Var
tbl: TParagraph;
row: TParagraph;
cell: TParagraph;
i1: Integer;
i2: Integer;
Begin
wpRichtext.BeginUpdate;
tbl := wpRichtext.ActivePar.AppendNewTable;
tbl.ASetAdd(WPAT_ParProtected, 1);
For i1 := 1 To 10 Do
Begin
row := tbl.AppendNewRow;
For i2 := 1 To 10 Do
Begin
cell := row.AppendNewCell;
cell.SetText(inttostr(i1 * i2));
End;
End;
wpRichtext.EndUpdate;
End;
Alles anzeigen
Das funktioniert auch recht gut. Selektiert man jedoch mehrere Zellen, können diese durch drücken der Entf-Taste geleert werden. Sind ganze Zeilen markiert, werden diese sogar komplett gelöscht.
Wie kann dieses Verhalten unterbunden werden.
Vielen Dank im Voraus.
Heiko Moser
HSC GmbH Dürrweitzschen