Hallo,

ich habe ein RichEdit und möchte folgendes tun.

Pseudo-Code:
Code :
1
2
3
4
5
6
7
8

 RichEdit->Aktive Zeile = erste Zeile; Alle anderen Zeilen inaktiv; 
 Fester Wert der ersten 15 Zeichen: ">> ";(Eingabe nur in erste Zeile möglich und erst nach 
 diesen ersten 15 Zeichen, Backspace nicht möglich);
 Bei Enter: Erste Zeile wird inaktiv - man kann nicht mehr in diese springen. Zweite Zeile
 wird aktiv und bekommt als feste erste 15 Werte ">> ". Alle anderen unteren Zeilen sind
 ebenfalls inaktiv.
 usw...
 usw...

Mein erster redundanter Ansatz:
Code :
1
2
3
4
5
6
7
8
9
10
11
12

void __fastcall TForm1::RichEdit1KeyPress(TObject *Sender, char &Key)
{
AnsiString keyString[25];
  keyString[0] = Key;
  if (Key=='\r')
  {//int a=RichEdit1->Lines->Count;
   RichEdit1->Paragraph->FirstIndent = 15;
   RichEdit1->Lines->Append(">> ");
  }
  else
  {}
}

Ich hab schon alles versucht, aber es nicht hinbekommen. HILFE

Todd