Teil eines neuen Richedit Strings "verfärben"??

**Akut-Programming**

Ich hab da mal ne Frage bezüglich des RichEdits. Unzwar hab ich mir einen String aus 3 Teilstring zusammen gebastelt - und nun würd ich einen davon gern dickgedruckt und mit n Link versehen in das RichEdit schreiben. Hier mal mein zusammenbau:
RichEdit1.Lines.Text:= RichEdit1.Lines.Text + TrimLeft(String1)+' '+TrimLeft(String2)+#13#13+TrimLeft(String3)+#13#13; Wie kann ich String eins nun vorm einfügen verändern? Ist das überhaupt möglich?

Gruß,

**Akut-Programming**

Keiner ne Idee??

**Sharky**

Du kennst die Regeln bzgl. des "puschens" von Beiträgen

**Cuchulainn**

Ich denke, dass du ihn vor dem Einfügen nicht verändern kannst. Aber wenn du ihn eingefügt hast, kannst du ihn verändern. Hier mal ein einfaches Beispiel, was ich meine:

markieren

Delphi-Quellcode:

			procedure TForm1.FormCreate(Sender: TObject);

begin

  RichEdit1.SelStart := 0; // Startposition der Markierung

  RichEdit1.SelLength := 6; // Ende der Markierung

  RichEdit1.SelAttributes.Style := [fsbold]; // Markierung fett drucken

  RichEdit1.SelLength := 0; // Markierung beenden

end;

Der Benutzer bekommt davon nichts mit. Er sieht direkt den fett gedruckten String.

**Akut-Programming**

Zitat von Sharky:

Du kennst die Regeln bzgl. des "puschens" von Beiträgen

Ja es tut mir leid!

Zitat von Cuchulainn:

Ich denke, dass du ihn vor dem Einfügen nicht verändern kannst. Aber wenn du ihn eingefügt hast, kannst du ihn verändern.

Das hab ich jetzt auch versucht, und es klappt prima. Nur wie kann ich dann jetzt noch den bearbeiteten string einen Link verpassen, finde in der Delphi Hilfe nichts.

**himitsu**

Den entsprechenden Text wie einen Link hervorheben (einfärben...) und dann das Drücken der Maustaste (auf den Text) über ein passendes Ereignis des RichEdit's abfangen und den Link ganz normal, also wie bei z.B. bei Label's aufrufen (z.B. ShellExecute)

**Akut-Programming**

Dank dir himitsu

, das hört sich vielversprechend an!!

**himitsu**

Und das Beste, darüber wurde schon mal irgendwo hier im Forum geredet

Sakura, oder Daniel ... irgeneiner sagt ja auch "alles was man benötigt, steht in den 150.000 Baiträgen der DP" (oder so ähnlich)

**Akut-Programming**

Zitat von himitsu:

Und das Beste, darüber wurde schon mal irgendwo hier im Forum geredet

Sakura, oder Daniel ... irgeneiner sagt ja auch "alles was man benötigt, steht in den 150.000 Baiträgen der DP" (oder so ähnlich)

Hmm, aber so z.B. Hier im Forum suchen

link in richedit, [dp]+link +richedit[/dp] hab ich nichts gefunden!

**Akut-Programming**

Also ich habs jetzt mal probiert, nur so ganz wills nicht, selbst wenn ich text markieren will macht er dann das ShellExecute

Ich habs wahrscheinlich im falschen ereignis.. Hier ist mal mein Code.. (ist momentan Testanwendung)

Markierten Text als Link anzeigen:

markieren

Delphi-Quellcode:

			procedure TForm1.Button6Click(Sender: TObject);

var

   i: integer;

begin

    for i:=0 to RichEdit1.SelLength

    do begin

         RichEdit1.SelAttributes.Color:=clBlue;

         RichEdit1.SelAttributes.Style := RichEdit1.SelAttributes.Style + [fsUnderline];

    end;

end;

Wenn man mit der Maus über dem String ist, dann soll der Cursor gewechselt werden..

markieren

Delphi-Quellcode:

			procedure TForm1.RichEdit1MouseMove(Sender: TObject; Shift: TShiftState; X,

  Y: Integer);

begin

  if (x=1) and (y=10)

  then begin

   RichEdit1.Cursor:= crHandPoint;

  end;

end;

Beim anklicken, Link öffnen:

markieren

Delphi-Quellcode:

			procedure TForm1.RichEdit1MouseDown(Sender: TObject; Button: TMouseButton;

  Shift: TShiftState; X, Y: Integer);

begin

     if (RichEdit1.SelStart=0)

     then begin

      shellexecute(Application.handle, 'open', 'http://www.small-soft.com', nil, nil, SW_ShowNormal);

     end;

end;

Welche Ereignisse sollte ich am besten verwenden?? Oder hättet ihr mal den Link zu dem Beitrag in der DP, den himitsu meinte, damit ich mir das mal angucken kann?!

Teil eines neuen Richedit Strings "verfärben"??

Teil eines neuen Richedit Strings "verfärben"??

Re: Teil eines neuen Richedit Strings "verfärben"?

Re: Teil eines neuen Richedit Strings "verfärben"?

Re: Teil eines neuen Richedit Strings "verfärben"?

Re: Teil eines neuen Richedit Strings "verfärben"?

Re: Teil eines neuen Richedit Strings "verfärben"?

Re: Teil eines neuen Richedit Strings "verfärben"?

Re: Teil eines neuen Richedit Strings "verfärben"?

Re: Teil eines neuen Richedit Strings "verfärben"?

Re: Teil eines neuen Richedit Strings "verfärben"?

Forumregeln

Akut-Programming Registriert seit: 18. Aug 2003 648 Beiträge	#2 Re: Teil eines neuen Richedit Strings "verfärben"? 22. Apr 2004, 06:49 Keiner ne Idee?? Akut-Programming be cool, be hot ... just be

Sharky Registriert seit: 29. Mai 2002 Ort: Frankfurt 8.251 Beiträge Delphi 2006 Professional	#3 Re: Teil eines neuen Richedit Strings "verfärben"? 22. Apr 2004, 06:53 Du kennst die Regeln bzgl. des "puschens" von Beiträgen Stephan B. "Lasst den Gänsen ihre Füßchen"

Akut-Programming Registriert seit: 18. Aug 2003 648 Beiträge	#7 Re: Teil eines neuen Richedit Strings "verfärben"? 22. Apr 2004, 08:04 Dank dir himitsu , das hört sich vielversprechend an!! Akut-Programming be cool, be hot ... just be