Delphi-PRAXiS - Delphi RichEdit: Bei Cursor Wort einfügen

Delphi-PRAXiS (https://www.delphipraxis.net/forum.php)

- Sonstige Fragen zu Delphi (https://www.delphipraxis.net/19-sonstige-fragen-zu-delphi/)

- - Delphi RichEdit: Bei Cursor Wort einfügen (https://www.delphipraxis.net/9211-richedit-bei-cursor-wort-einfuegen.html)

TypusMensch

20. Sep 2003 15:41

RichEdit: Bei Cursor Wort einfügen

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

20. Sep 2003 15:46

Re: RichEdit: Bei Cursor Wort einfügen

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

TypusMensch

20. Sep 2003 15:47

Re: RichEdit: Bei Cursor Wort einfügen

die lautet?

Captnemo

20. Sep 2003 16:01

Re: RichEdit: Bei Cursor Wort einfügen

Warum, ist doch auch so kein Prob.

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

20. Sep 2003 16:13

Re: RichEdit: Bei Cursor Wort einfügen

Thx :bounce2:

fkerber

20. Sep 2003 19:13

Re: RichEdit: Bei Cursor Wort einfügen

Hi!

Und warum nicht einfach so?

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

20. Sep 2003 20:48

Re: RichEdit: Bei Cursor Wort einfügen

Jajaja :mrgreen: ,

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.

Alle Zeitangaben in WEZ +1. Es ist jetzt 07:23 Uhr.