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!!!!!!!!!!!!!!!!!!!!!!!!!!!!