Die Demo Tables/TableTools zeigt wie beliebige Zellen selektiert werden können
var table : TParagraph;
begin
table := WPRichText1.Table;
if table=nil then
ShowMessage('Please move to table')
else
begin
table.CellSelectionRemove;
table.Rows[1].Cols[2].CellSelectionAdd;
table.Rows[2].Cols[2].CellSelectionAdd;
table.Rows[3].Cols[1].CellSelectionAdd;
table.Rows[3].Cols[2].CellSelectionAdd;
table.Rows[3].Cols[3].CellSelectionAdd;
table.Rows[4].Cols[2].CellSelectionAdd;
table.Rows[5].Cols[2].CellSelectionAdd;
// Show Selection
WPRichText1.Repaint;
end;
end;Es fehlt also noch ein OnClick handler.
procedure TForm1.WPRichText1Click(Sender: TWPCustomRtfEdit; PageNo, X,
Y: Integer; var Ignore: Boolean);
begin
if WPRichText1.TableCell<>nil then
begin
WPRichText1.Table.CellSelectionRemove;
WPRichText1.TableCell.CellSelectionAdd;
WPRichText1.Repaint;
end;
end;Den anderen Modus kann man in EditOptionsEx abschalten: wpIgnoreSingleCellSelection
Nachfrage: wie kann man den dicken schwarzen Pfeil verhindern / abschalten?
In EditOptionsEx wpIgnoreSingleCellSelection