TDHTMLSafe kursor

Witam!

Mam taki problem z komponentem TDHTMLSafe.

Chce zrobić procedurkę, że klikne to wstawia się np. znacznik <s></s> i kursor ma być pomię znacznikami. No i mam problem.

Bo robie sobie tak:
...
Tr := sel.createrange;
Tr.pasteHTML('<s></s>');

i ten znacznik jest ładnie wstawiany. Tyle, ze kursor jest na końcu więc jak piszę, to nie tekst nie jest przekreślony.

A zatem jak z poziomu kodu programu wstawić jakieś znaczniki, a następnie cofnąć trochę kursor?

I jak w ogóle sterować kursorem... chciałbym np. mieć mozliwośc przemieszania kursora.. czy to w edytorze... czy też w kodzie. Chciałbym np. że mam ustawiony gdzieś kursor, i przełączę się do innego okna (tam pobiorę źródło HTML dokumentu) i chciałbym umieścić kursor w to miejsce, w którym było w TDHTMLSafe. Mam nadzieję, że rozumiecie. Z góry dzięki

Nie wiem co to za komponent.. ale napisze jak to zrobić w SynEdit - kodzik stary ale powinien działać.. nie powinno być też większych problemów z przeróbką.

var
  i : Integer;
begin
  i := length(SynEdit.SelText);
  SynEdit.SelText := '<u>' + SynEdit.SelText + '</u>';
  Synedit.SelStart := SynEdit.SelStart - i - 4;
  SynEdit.SelEnd := SynEdit.SelStart + i;
end;

// mogą być 'literowki'

Kod działa uniwersalnie: gdy nie ma zaznaczenia wstawia znaczki i ustawia kursor między nimi. Gdy jest zaznaczony fragment tekstu - umieszcza go w w/w tagach i ustawia kursor na początku tegoż tekstu. P

Pisz bardziej konkretne tematy postów.