Problem beim OnKeyDown

[sko1]

Hallo,

ich möchte Eingaben in einem TWPRichText (von WPTools) verhindern, wenn der Cursor an einer bestimmten Stelle steht.

Hierfür habe ich

Delphi-Quellcode:

var
  f1, f2: integer; //Feldgrenzen
  s1, s2: integer; //Selektionsgrenzen
begin
  // wenn ein Feld vorhanden ist und die Markierung im Feld steht darf nicht getippt werden
  if FeldInhalt = '' then
    exit;
  f1 := Pos(FeldInhalt, RTFRichtext.text);
  f2 := f1 + length(FeldInhalt);
  s1 := RTFRichtext.SelStart+1;
  s2 := s1 + RTFRichtext.SelLength;
  // Selektionsanfang im Feld?
  if (s1 > f1) then
    if (s1 < f2) then
      Key := #0;
  // SelektionsEnde im Feld?
  if (s2 > f1) then
    if (s2 < f2) then
      Key := #0;

Bei "normalen" Zeichen funktioniert es, beim Enter drücken sehe ich beim Debuggen ebenfalls dass Key zu #0 wird, das Enter aber wird trotzdem ausgeführt und ich habe einen unerwünschten Zeilenumbruch im Text!

Was kann man tun?

Ciao
Stefan