Hallo,
ich habe folgendes Problem.
Ich habe eine RichEdit Komponente, in die ich Text eingebe (immer zwei Zeilen untereinander, dann eine Leerzeile).
Beispiel:
Delphi-Quellcode:
text abcde
test bla
text jdcuidn
test uff
Zur Realisierung hab ich das OnKeyDown des RichEdit bearbeitet
Delphi-Quellcode:
procedure TForm1.MemoKeyDown(Sender: TObject; var Key: Word;
Shift: TShiftState);
begin
if Key = VK_RETURN then
begin
AddText(user + ' >',Memo);
end;
end;
und die procedure AddText sieht so aus
Delphi-Quellcode:
procedure AddText(text: String; Feld: TRichEdit);
begin
Feld.Lines.Add('');
Feld.Lines.Add(text);
Feld.SelStart := length(Feld.Text);
Feld.SelAttributes.Size := 8;
Feld.SelAttributes.Style := [];
end;
Das Ergebnis sieht dann aber leider so aus
Delphi-Quellcode:
text abcde
test bla
text jdcuidn
test uff
Was mache ich falsch?