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
