Hi! Dann setz mal das da statt dem bisherigen QT ein:
Delphi-Quellcode:
if key = VK_RETURN then
begin
RichEdit1.SelAttributes.Color := clred;
IF RichEdit1.CaretPos.y <> 0 THEN
RichEdit1.Lines.Add('');
richedit1.Lines[richedit1.CaretPos.Y] := richedit1.Lines[richedit1.CaretPos.Y] + '
';
RichEdit1.SelAttributes.Color := clblack;
end;
end;
Damit müsste es gehen. Ich hab den Ansatz von Illuminator-23-5 verwendet.
Man liest sich, Stanlay
