Verhindert, dass des Benutzers das Auswählen von Text in einem Steuerelement memo

Verhindert, dass des Benutzers das Auswählen von Text in einem Steuerelement memo

Verhindert, dass des Benutzers das Auswählen von Text in einem Steuerelement memo : Mehreren tausend Tipps, um Ihr Leben einfacher machen.

Festlegen von Enabled auf False hat einige unerwünschten Nebenwirkungen...
Verhindert, dass des Benutzers das Auswählen von Text in einem Steuerelement Memo
Der einfachste Weg wäre die Enabled-Eigenschaft des Steuerelements Memo (oder bearbeiten) auf False festgelegt, sodass das Steuerelement Ereignisse empfangen nicht möglich. Dieser Nachteil dieser Methode ist der Benutzer nicht in der Lage, den Text zu scrollen und deaktivierte Text sieht schlecht.
Um zu verhindern, dass Benutzer Memo schreiben festgelegt wir die ReadOnly-Eigenschaft auf True.
Um zu verhindern, dass den Benutzer Markieren von Text mit der Maus, wir generieren den Handler für das MouseMove-Ereignis des Steuerelements und schreiben Sie den folgenden Code:
procedure TForm1.Memo1MouseMove(Sender: TObject;
   Shift: TShiftState; X, Y: Integer);
  begin
    if ssLeft in Shift then
      Memo1.SelLength := 0;
  end;
Um den Benutzer daran zu hindern, eine Auswahl über die Tastatur, generieren wir die Handler die Ereignisse KeyDown und KeyUp, dem gleichen Verfahren die OnKeyDown und OnKeyUp Eigenschaften zuzuweisen:
procedure TForm1.Memo1KeyDownUp(Sender: TObject;
    var Key: Word; Shift: TShiftState);
  begin
    if (ssShift in Shift) and (Key in [VK_LEFT, VK_RIGHT, VK_UP,
        VK_DOWN, VK_PRIOR, VK_NEXT, VK_HOME, VK_END]) then
      Key := 0;
  end;
Den vollständigen Quellcode dieses Artikels finden im Archiv Sie, die begleitet die Pascal Newsletter #25