AGB  ·  Datenschutz  ·  Impressum  







Anmelden
Nützliche Links
Registrieren
Zurück Delphi-PRAXiS Sprachen und Entwicklungsumgebungen Sonstige Fragen zu Delphi Delphi Bei Enter wort einfügen und neue Zeile
Thema durchsuchen
Ansicht
Themen-Optionen

Bei Enter wort einfügen und neue Zeile

Ein Thema von ByteLord · begonnen am 19. Aug 2003 · letzter Beitrag vom 19. Aug 2003
Antwort Antwort
Seite 2 von 3     12 3      
ByteLord

Registriert seit: 13. Jul 2003
40 Beiträge
 
Delphi 6 Personal
 
#11

Re: Bei Enter wort einfügen und neue Zeile

  Alt 19. Aug 2003, 17:47
jo thx Stanley.
  Mit Zitat antworten Zitat
Benutzerbild von Stanlay Hanks
Stanlay Hanks

Registriert seit: 1. Mär 2003
2.078 Beiträge
 
Delphi 2005 Professional
 
#12

Re: Bei Enter wort einfügen und neue Zeile

  Alt 19. Aug 2003, 17:54
Kein Problem. Wenn du irgendwo nicht weiterkommst, kannst du ja nochmal fragen.

PS: Stanlay

Man liest sich, Stanlay
  Mit Zitat antworten Zitat
ByteLord

Registriert seit: 13. Jul 2003
40 Beiträge
 
Delphi 6 Personal
 
#13

Re: Bei Enter wort einfügen und neue Zeile

  Alt 19. Aug 2003, 17:55
OH Sorry!
Natürlich Stanlay.
  Mit Zitat antworten Zitat
ByteLord

Registriert seit: 13. Jul 2003
40 Beiträge
 
Delphi 6 Personal
 
#14

Re: Bei Enter wort einfügen und neue Zeile

  Alt 19. Aug 2003, 18:41
Zitat von Stanlay Hanks:
Kein Problem. Wenn du irgendwo nicht weiterkommst, kannst du ja nochmal fragen.
Komm doch nicht weiter mit dem farbig machen.
Kenn mich noch so aus mit delphi. Hab die ganze zeit versucht des irgendwie hinzubasteln aber bekomms nicht hin.
  Mit Zitat antworten Zitat
Benutzerbild von Stanlay Hanks
Stanlay Hanks

Registriert seit: 1. Mär 2003
2.078 Beiträge
 
Delphi 2005 Professional
 
#15

Re: Bei Enter wort einfügen und neue Zeile

  Alt 19. Aug 2003, 18:59
Hi! Dann setz mal das da statt dem bisherigen QT ein:

Delphi-Quellcode:
if key = VK_RETURN then
    begin
    RichEdit1.SelAttributes.Color := clred;
    IF RichEdit1.CaretPos.y <> 0 THEN
    RichEdit1.Lines.Add('');
    richedit1.Lines[richedit1.CaretPos.Y] := richedit1.Lines[richedit1.CaretPos.Y] + '
';
    RichEdit1.SelAttributes.Color := clblack;
    end;
end;
Damit müsste es gehen. Ich hab den Ansatz von Illuminator-23-5 verwendet.

Man liest sich, Stanlay
  Mit Zitat antworten Zitat
Benutzerbild von sakura
sakura

Registriert seit: 10. Jun 2002
Ort: Unterhaching
11.412 Beiträge
 
Delphi 12 Athens
 
#16

Re: Bei Enter wort einfügen und neue Zeile

  Alt 19. Aug 2003, 19:05
Zitat von Stanlay Hanks:
PS: Ich will den alten :hi : smiley wieder!
Wie ist der neue Kompromiss?

Im Vergleich mit den Standards 8)

Der neue
Der alte

......
Daniel Lizbeth
Ich bin nicht zurück, ich tue nur so
  Mit Zitat antworten Zitat
Benutzerbild von Stanlay Hanks
Stanlay Hanks

Registriert seit: 1. Mär 2003
2.078 Beiträge
 
Delphi 2005 Professional
 
#17

Re: Bei Enter wort einfügen und neue Zeile

  Alt 19. Aug 2003, 19:09
Ich .... will ... meinen .... alten .... <weinkrampf kriegt > ... smiley....bitte!!!!!

Der alte war soooo cool. So ein richtiger Standard Smiley. Also mir persönlich gefällt der am besten...Nett, dass du nen Kompromiss vorschlägst, aber ich persönlich find den alten am besten!

Man liest sich, Stanlay <hier wäre normalerweise der : hi : Smiley >
  Mit Zitat antworten Zitat
ByteLord

Registriert seit: 13. Jul 2003
40 Beiträge
 
Delphi 6 Personal
 
#18

Re: Bei Enter wort einfügen und neue Zeile

  Alt 19. Aug 2003, 19:19
@ Stanlay: Thx nochmal. Hat wunderbar funktioniert.
cya
ByteLord
  Mit Zitat antworten Zitat
Benutzerbild von Aya
Aya

Registriert seit: 24. Jul 2003
Ort: Kassel
138 Beiträge
 
Delphi 6 Professional
 
#19

Re: Bei Enter wort einfügen und neue Zeile

  Alt 19. Aug 2003, 20:29
Hi,

das ganze geht noch viel leichter...
mit Richedit.SelText kannst du einen Text an der CursorPosition einfügen:

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:='
';
    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^$^%;
  Mit Zitat antworten Zitat
Benutzerbild von Stanlay Hanks
Stanlay Hanks

Registriert seit: 1. Mär 2003
2.078 Beiträge
 
Delphi 2005 Professional
 
#20

Re: Bei Enter wort einfügen und neue Zeile

  Alt 19. Aug 2003, 20:38
Naja....da kommen am schluss sachen wie



Hallo

Hallo

Hallo


raus.
und so sollte es aussehen:



Hallo


Hallo


Hallo

Man liest sich, Stanlay
  Mit Zitat antworten Zitat
Antwort Antwort
Seite 2 von 3     12 3      


Forumregeln

Es ist dir nicht erlaubt, neue Themen zu verfassen.
Es ist dir nicht erlaubt, auf Beiträge zu antworten.
Es ist dir nicht erlaubt, Anhänge hochzuladen.
Es ist dir nicht erlaubt, deine Beiträge zu bearbeiten.

BB-Code ist an.
Smileys sind an.
[IMG] Code ist an.
HTML-Code ist aus.
Trackbacks are an
Pingbacks are an
Refbacks are aus

Gehe zu:

Impressum · AGB · Datenschutz · Nach oben
Alle Zeitangaben in WEZ +1. Es ist jetzt 14:42 Uhr.
Powered by vBulletin® Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
LinkBacks Enabled by vBSEO © 2011, Crawlability, Inc.
Delphi-PRAXiS (c) 2002 - 2023 by Daniel R. Wolf, 2024 by Thomas Breitkreuz