beim RichEdit bei neuer Zeile etwas tun

[gangs-taas]

hab jetzt übrigens ne lösung ^^

hab das so gelöst :

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+'-');
   end;
end;

procedure TForm1.RichEdit1Change(Sender: TObject);
var
i,buttonSelected : integer;
wndMain, wndChild: HWND;
Liste : Tstringlist;
Datei : String;
Seitenzahl : Integer ;
begin
  For i := 1 to (RichEdit1.Lines.count -1 ) do
  begin
    if RichEdit1.Lines[i] = '' then
      begin
        RichEdit1.Lines.Delete(i);
        wndMain := FindWindow('TForm1','Mappe');
        if wndMain <> 0 then
        begin
          wndChild := FindWindowEx(wndMain, 0, 'TRichEdit', nil);
          if wndChild <> 0 then
            begin
             PostMessage(wndChild, WM_KEYDOWN ,VK_Left, 0)
            end;
        end;
      end;
  end;
end;