|
Registriert seit: 24. Jul 2003
Ort: Kassel
138 Beiträge
Delphi 6 Professional
|
Re: Bei Enter wort einfügen und neue Zeile
19. Aug 2003, 20:40
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~
I aim for my endless dreams and I know they will come true!
S: String = #86^)^3^)^4#58#32^(^4^4^0#58#47#47^7^7^7#46^+^/^3^(^)^'^!^9^!#46^$^%;
|