Gesucht: Memo zum selbstzeichnen (markierbar, readonly, farbige Zeilen)

[himitsu]

Is ja nicht nur für dich ... ein bugfreieres Delphi wäre doch auch so besser?

'ne schnelle Lösung erstmal für alle Anderen:

Delphi-Quellcode:

procedure TForm1.RichEdit1KeyDown(Sender: TObject; var Key: Word; Shift: TShiftState);
begin
  if TRichEdit(Sender).ReadOnly and (Key in [Ord('A')..Ord('Z')]) then Key := 0;
end;