Memolines readonly ?

[Sharky]

Wo findet man in einem Memo denn das OnSelectionChange? :such:

Eine nicht schöne aber funktionierende Möglichkeit:

Delphi-Quellcode:

procedure TForm1.memo_TestChange(Sender: TObject);
var
  mycaretpas: TPoint;
begin
  with (Sender as TMemo) do
  begin
    mycaretpas := CaretPos;
    if (mycaretpas.Y < 9) then // Wenn der Caret in den Zeilen 0 bis 9 ist
    begin
      SendMessage(Handle, WM_UNDO, 0, 0); // Mache die Änderung rückgänig
      SelLength := 0;
      Perform(EM_EMPTYUNDOBUFFER, 0, 0);  // und lösche den Undo-Buffer
    end;
  end;
end;