Каким образом можно реализовать редактирование TfrxRichView, TfrxPictureView в окне предварительного просмотра посредством стандартных диалоговых окон редактирования TfrxRichView, TfrxPictureView?

Question

Accepted Answer

uses frxRich, frxRichEditor, frxDesgn; 
procedure TForm1.frxReport1ClickObject(Sender: TfrxView; Button: TMouseButton; Shift: TShiftState; var Modified: Boolean); 
begin 
if Sender is TfrxRichView then 
with TfrxRichEditorForm.Create(Form1) do 
begin RichView := TfrxRichView(Sender); 
Modified := ShowModal = mrOk; 
Free; 
end; 
end; 
uses frxDesgn, frxEditPicture; 
procedure TForm1.frxReport1ClickObject(Sender: TfrxView; Button: TMouseButton; 
Shift: TShiftState; 
var Modified: Boolean); 
begin 
if Sender is TfrxPictureView then 
with TfrxPictureEditorForm.Create(Form1) do begin Image.Picture.Assign(TfrxPictureView(Sender).Picture); 
Modified := ShowModal = mrOk; 
if Modified then TfrxPictureView(Sender).Picture.Assign(Image.Picture); 
Free; 
end; 
end;