Memolines readonly ?

[lizardking]

Zitat von Florian Bernd:

Zitat:

Wo findet man in einem Memo denn das OnSelectionChange?

Ups die gibt's ja nur bei RichEdits ...

Florian

*g*

Funzt aber, wenn man beim Memo einfach OnKeyDown und OnMouseDown benutzt und dort die Abfrage nach der Zeile macht :

Delphi-Quellcode:

procedure TForm1.Memo1KeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
  if (Memo1.CaretPos.Y = 0) or (Memo1.CaretPos.Y = 8) then
    Memo1.ReadOnly := true
  else
    Memo1.ReadOnly := false;
end;

Selbiges dann eben nochmal fuer OnMOuseDown