Tfrxreport Clickobject данные из Tfrxrichview

vovk · September 2009

использую Delphi 2007 и Delphi 7 (когда как)
на форме есть TfrxReport и TfrxPreview
как по событию frxReport1ClickObject получить данные из TfrxRichView по которому кликаю, не в том виде как он содержится в сформированом отчёте, а как их видно в дизайнере, то есть к примеру

в отчёте "Ученик Коля отличник ",

а мне нужно получить "Ученик [<frxDBDataset1."FIRST_NAME">] отличник " как в дизайнере

ну и передавать обратно изменённые, тоже надо будет в рантайме.
Это возможно?

ЗЫ у меня Basic Edition

gpi · September 2009

Присвойте свойству TagStr значение свойства Name объекта TfrxRichView
и в коде выполните
TfrxRichView(frxReport1.FindObject(Sender.TagStr)).RichEdit.Lines.Text
ну а заполнять
TfrxRichView(Sender).RichEdit.Lines.Text

vovk · September 2009

gpi написал: »

Присвойте свойству TagStr значение свойства Name объекта TfrxRichView
и в коде выполните
TfrxRichView(frxReport1.FindObject(Sender.TagStr)).RichEdit.Lines.Text
ну а заполнять
TfrxRichView(Sender).RichEdit.Lines.Text

Спасибо а то
у меня пару минут назад получилось както вот так

procedure TForm1.frxReport1ClickObject(Sender: TfrxView; Button: TMouseButton;
  Shift: TShiftState; var Modified: Boolean);
 var
 fr_rich:TfrxRichView;
 M_str:TMemoryStream;
  begin
      if (Sender is TfrxRichView) then
       begin
         M_str:=TMemoryStream.Create;
 try
     fr_rich:=  frxReport1.FindComponent(TfrxRichView(Sender).Name) as TfrxRichView;
     fr_rich.RichEdit.Lines.SaveToStream(M_str);
     M_str.Position:=0;
     RichEdit1.Lines.LoadFromStream(M_str);
       
 finally
   M_str.Free;
 end;      
     end;
  end;

кажется я люблю всё усложнять

а нет, я же не сказал что мне с форматированием нужно.. а так без форматирования вроде получается.

А с форматированием без потоков можно?

gpi · September 2009

написал:

А с форматированием без потоков можно?

Наверное, нет

Tfrxreport Clickobject данные из Tfrxrichview

Комментарии

Оставить комментарий