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