Delphi-PRAXiS

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 03:10 Uhr.

Powered by vBulletin® Copyright ©2000 - 2025, Jelsoft Enterprises Ltd.
LinkBacks Enabled by vBSEO © 2011, Crawlability, Inc.
Delphi-PRAXiS (c) 2002 - 2023 by Daniel R. Wolf, 2024-2025 by Thomas Breitkreuz