Каким образом можно получить доступ к RTF тексту? (что то типа string s:=Rich.RichText.Lines.RTF)
Question: Каким образом можно получить доступ к RTF тексту? (что то типа string s:=Rich.RichText.Lines.RTF)
Answer:
В приведенном коде при клике на TfrxRichView его содержимое копируется в Memo1 на диалоговой форме:
1 2 3 4 5 6 7 8 9 10 |
procedure Rich1OnPreviewClick(Sender: TfrxView; Button: TMouseButton; Shift: Integer; var Modified: Boolean); var st: TMemorystream; begin st:=TMemoryStream.Create; Rich1.RichEdit.StreamFormat:=0; Rich1.RichEdit.Lines.SaveToStream(st); st.Position:=0; Memo1.Lines.LoadFromStream(st); st.Free; DialogPage1.ShowModal; end; |