Ładny brzuch
jak dodac tekst tam gdzie znajduje sie aktualnie kursor (do RichEdit'a)
Np tak:
var S: string; begin with RichEdit1 do begin S := Lines[CaretPos.Y]; Insert(' tekst_do_wstawienia ', S, CaretPos.X + 1); Lines[CaretPos.Y] := s; end; end;
jak dodac tekst tam gdzie znajduje sie aktualnie kursor (do RichEdit'a)
RichEdit.SelText:='cos tam';
zanotowane.pl doc.pisz.pl pdf.pisz.pl zsf.htw.pl
Np tak:
var S: string; begin with RichEdit1 do begin S := Lines[CaretPos.Y]; Insert(' tekst_do_wstawienia ', S, CaretPos.X + 1); Lines[CaretPos.Y] := s; end; end;
jak dodac tekst tam gdzie znajduje sie aktualnie kursor (do RichEdit'a)
RichEdit.SelText:='cos tam';