RichEdit: Bei Cursor Wort einfügen

**TypusMensch**

Ich habe das Problem, dass ich genau bei der aktuellen Cursorposition ein String einfügen möchte und danach den Cursor auf eine bestimmte Stelle wieder hinhaben möchte.

Bsp.

<body> "CURSOR" </body>

Bei einem Klick auf den Button soll jetzt wo der Cursor ist folgendes hin:

Und dannach soll der Cursor noch dazwischen gehen... also so:

<body> "CURSOR" </body>

Wie mache ich das? Danke für eure Hilfe im voraus. MfG TypHus

**chris01**

Probiere es mal mit synedit!!! ist leichter!!
da gibst es, meine ich eine Funktion!!

**TypusMensch**

die lautet?

**Captnemo**

Warum, ist doch auch so kein Prob.

zusammenfalten · markieren

Delphi-Quellcode:

			procedure TForm1.Button1Click(Sender: TObject);

var

 b, e: Integer;

begin

     b:=RichEdit1.SelStart;

     e:=RichEdit1.SelStart+RichEdit1.SelLength;

     RichEdit1.SelStart:=e;

     RichEdit1.SelLength:=0;

     RichEdit1.SelText:='[/b]';

     RichEdit1.SelStart:=b;

     RichEdit1.SelLength:=0;

     RichEdit1.SelText:='[b]';

     RichEdit1.SelStart:=b+3;

end;

Fügt an der aktuellen Cursorposition ein. Und wenn du ein Wort oder mehrere markierst, dann vor und hinter dem markierten Text.
Der Curser steht dann immer hinter dem [b].

**TypusMensch**

Thx

**fkerber**

Hi!

Und warum nicht einfach so?

markieren

Delphi-Quellcode:

			procedure TForm1.Button1Click(Sender: TObject); 

var

b: Integer;

begin

     b:=RichEdit1.SelStart;

     Richedit1.SelText:='[b]'+Richedit1.SelText+'[/b]';

     RichEdit1.SelStart:=b+3;

end;

Hab das kurz getested und das macht eigentlich das selbe mit weniger Aufwand, oder?

ciao fkerber

**Captnemo**

Jajaja

,

aber wenn mans ganz ganau nehmen will, dann muß sogar noch ein RichEdit1.SetFocus einfügen.

Aber, um es gleich vorwegzunehmen, wenn man statt einem Button einen SpeedButton verwendet, kann man sich auch das sparen.

RichEdit: Bei Cursor Wort einfügen

RichEdit: Bei Cursor Wort einfügen

Re: RichEdit: Bei Cursor Wort einfügen

Re: RichEdit: Bei Cursor Wort einfügen

Re: RichEdit: Bei Cursor Wort einfügen

Re: RichEdit: Bei Cursor Wort einfügen

Re: RichEdit: Bei Cursor Wort einfügen

Re: RichEdit: Bei Cursor Wort einfügen

Forumregeln

chris01 Registriert seit: 26. Apr 2003 Ort: Ahlen 163 Beiträge Delphi 7 Personal	#2 Re: RichEdit: Bei Cursor Wort einfügen 20. Sep 2003, 16:46 Probiere es mal mit synedit!!! ist leichter!! da gibst es, meine ich eine Funktion!! Christopher H.
	Zitat

TypusMensch Registriert seit: 29. Aug 2003 Ort: Goth-A 182 Beiträge Delphi 7 Enterprise	#3 Re: RichEdit: Bei Cursor Wort einfügen 20. Sep 2003, 16:47 die lautet?
	Zitat

TypusMensch Registriert seit: 29. Aug 2003 Ort: Goth-A 182 Beiträge Delphi 7 Enterprise	#5 Re: RichEdit: Bei Cursor Wort einfügen 20. Sep 2003, 17:13 Thx
	Zitat