Wie Cursor Ein- und Ausschalten in TWPRichtext

1. offizieller Beitrag

    Hallo,

    ich möchte per Code bei bestimmten Stellen im Text den Cursor verschwinden lassen, zum Testen habe ich 2 Buttons:

    Code
    procedure TForm1.Button1Click(Sender: TObject);
begin //Abschalten
  WPRichText1.EditOptionsEx := WPRichText1.EditOptionsEx
    + [wpDisableCaret];
end;
procedure TForm1.Button2Click(Sender: TObject);
begin //Einschalten
  WPRichText1.EditOptionsEx := WPRichText1.EditOptionsEx
    - [wpDisableCaret];
end;

    Zu Programmstart ist der Cursor sichtbar, nach Klick auf Button1 verschwindet er, aber bei Klick auf Button2 kommt er nicht wieder zum Vorschein!

    Was kann man tun bzw. was mache ich falsch?

    Ciao

    Stefan

    Das hat mich jetzt auf die Idee gebracht:

    Ich ändere den Cursor ja beim Klick in eine Tabellenzelle (das mit den Buttons war ein Test)

    Code
    par.AGet(WPAT_ParProtected, protect);
    if protect = 1 then
      fWPRichText.EditOptionsEx := fWPRichText.EditOptionsEx + [wpDisableCaret]
    else begin
      fWPRichText.EditOptionsEx := fWPRichText.EditOptionsEx - [wpDisableCaret];
      fWPRichText.SetFocus;
    end;

    und dabei sollte ja das Edit den Focus haben, das zusätzliche .Setfocus (siehe oben) bringt den Cursor wieder zum Vorschein!

    Ciao

    Stefan