Bei Enter wort einfügen und neue Zeile

[Aya]

Hi,

na dann halt einfach nochne leerzeile dazu

Delphi-Quellcode:

procedure TForm1.RichEdit1KeyDown(Sender: TObject; var Key: Word; 
  Shift: TShiftState); 
begin 
  if Key=VK_RETURN then begin 
    RichEdit1.SelAttributes.Color:=clRed; 
    RichEdit1.SelText:=#13#10+'
'; 
    RichEdit1.SelAttributes.Color:=RichEdit1.Font.Color; 
  end; 
end;

Au'revoir,
Aya~

[Stanlay Hanks]

Und weil ich so pingelig bin:

Dann gibt's das erste mal, wenn ich Enter drücke, eine Leerzeile....

Du müsstest also noch abfragen, ob du grade in der ersten Zeile bist.

Delphi-Quellcode:

if Key=VK_RETURN then begin
    RichEdit1.SelAttributes.Color:=clRed;
    IF RichEdit1.CaretPos.Y <> 0 THEN
    RichEdit1.SelText:=#13#10+'
'
    ELSE
    RichEdit1.SelText:='
';
    RichEdit1.SelAttributes.Color:=RichEdit1.Font.Color;
  end;

[Stanlay Hanks]

Dann ist deine Lösung natürlich kürzer und besser.

Man liest sich, Stanlay


[Edit] Edit gelöscht...geht doch nicht so [/edit]