Delphi-Quellcode:
procedure TForm1.RichEdit1KeyDown(Sender: TObject; var Key: Word;
Shift: TShiftState);
var
i : integer;
Einrück : String;
begin
If (Key = VK_RETURN) Then
begin
Einrück := '';
For i := 0 To button1.Tag do
Einrück := Einrück+ '*';
RichEdit1.Lines.Add(Einrück+'-');
// RichEdit1.Lines.Delete(RichEdit1.Lines.Count-1);
end;
end;
wobei er hab ich jetzt festgestellt, sowohl vor dem '-' eine leerzeile als auch danach macht also es kommt raus
Zitat:
-
leerzeile (mit fokus auf dieser)
das ist blöd...