memo2

0

Witam!
mam taki kod na wstawianie tekstu do memo z kursorem w środku wstawianego tekstu:

var
Start: Integer;
S: String;
begin
S := 'jakis tekst';
with Memo1 do
begin
SetFocus;
Start := SelStart;
SelText := S ;
SelStart := Start + (Length(S) div 2);
end;
end;

ten tekst z kursorem jak jest przy krawędzi to działa np.
tekst(kursor)tekst
ale jak ten tekst jest wstawiany dalej od brzegu...
((kursor) teksttekst
to kursor wcale nie jest po środku tego wstawianego tekstu!

jak poprawić ten błąd????????

Dzięki za wszelką pomoc!!!!!!!!!!!!!!!!!!!!!!!!!!!!

0

Zakladam ze piszesz edytor html. W takim razie takie cos powinno wystarczyc.

procedure TForm1.WstawTagi(Tag1, Tag2 : String);
var
Start: Integer;
begin
with Memo1 do begin
SetFocus;
SelText := Tag1;
Start := SelStart;
SelText := Tag2;
SelStart := Start;
end;
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
WstawTagi(,);
end;--Pozdrawiam {hello}
Tomasz K.

0

Ta droga wyglada tak:
procedure TForm1.Button1Click(Sender: TObject);
begin
WstawTagi('&lttag1&gt', '&lt/tag2&gt');
end;

Wpisalem &lt b &gt i &lt /b&gt i nie przewidzialem co sie stanie :)
--Pozdrawiam {hello}
Tomasz K.

0

programista napisal:

mam taki kod na wstawianie tekstu do memo z kursorem w środku wstawianego tekstu (...) to kursor wcale nie jest po środku tego wstawianego tekstu!
jak poprawić ten błąd????????

ten kod dziala poprawnie jak wstawiasz tekst do Memo
ale ty uzywasz komponentu SynMemo a w nim mozna ustawic kursor w miejscu gdzie nie ma zadnego tekstu
zamiast tego SynMemo daj zwykle Memo i zobaczysz ze kodzik piknie dziala :)---=-=[ Delphi 3, 6 ]=-=-
-=-=-==[ LKS ]==-=-=-
-=[ [email protected] ]=-

0

Dzięki!!!!!!!!!!!!!!!!!!!!!! Jest OK!

1 użytkowników online, w tym zalogowanych: 0, gości: 1, botów: 0