Problem w RichEdit...i...

Witam!{hello} {hello} {hello}

Mam pytanie... RichEdit...

Mam button i richedita na formie. Po kliknięciu na button (richedit.seltext:='[B] [/B]';) w miejsce kursora dodaje się string: '[B] [/B]'.
Kursor znajduje się wtedy na końcu tegoż stringu. Jak zrobić aby po dodaniu tego stringu kursor cofną się o 4 miejsca, czyli znalazł się między: '[B]' a '[/B]'. Proszę o kodzik. Z góry dziękuję i pozdrawiam!

=========================

UWAGA !!!

   Poszukujemy osoby która pomogłaby nam usprawnić 'Listę kontaktów'

(znajdującą się na stronie: www.delphi.programowanie.prv.pl). A chodzi oto aby napisać skrypt PHP który automatycznie dodaje nowy wpis po wypełnieniu formularza rejestracyjnego... Prosimy o kontakt...

P.s Możecie przysyłać nam gotowe skrypty PHP, które po wypełnieniu formularza dopisują jakiś tekścik do dokumentu HTML. Z góry dziękujęmy:)

=========================

--Pozdrawiam!
Michał Lipski
E-mail: [email protected]
http://www.delphi.programowanie.prv.pl
GG#: 3742497

A więc powinno być tak:

RichEdit1.SelText := '[B] [/B]';
RichEdit1.SelStart := RichEdit1.SelStart - 5;

I po kłopocie. Działa na 100% bo sprawdzałem {hello}

Sory tam w drugiej linijce nie - 5 tylko - 4 powinno być :-)
Pozdro {hello}

RE.SelStart := RE.SelStart - 4;--Pozdrawiam {hello}
Tomasz K.

Lee spoznilem :)--Pozdrawiam {hello}
Tomasz K.

propozycja lewusa dziala tylko gdy memo jest czyste.
Zrob tak:

Memo1.SelText := ['b][/b]';
Memo1.SelStart:=SelStart-4; //(tum moze byc 5 bo nie jestem pewien, ale raczej tak)
--Vroc
&ltDelphi Knight&gt

A mi działa zawsze, nawet jak jest tekst :-)

a sorki:&gt&gt napisalem to samo:&gt&gt&gt&gt&gt&gt {wstyd} {wstyd} {wstyd} {wstyd} --Vroc
&ltDelphi Knight&gt

Ok wielkie dzięki {brawo} {brawo} {brawo} --Pozdrawiam!
Michał Lipski
E-mail: [email protected]
http://www.delphi.programowanie.prv.pl
GG#: 3742497