Как по клику на Frxmemo сформировать новую страничку?

Комментарии

• Ubik77

  October 2011 отредактировано 08:27

  Ну... если я правильно понял задачу, то можно выкрутится так:
  
  1. Создаем отчет с двумя страницами Page1 и Page2.
  2. Свойству Page2.Visible назначаем False.
  3. на Page1 кидаем Memo1.
  3. Пишем обработчик события для Memo1:
  

  procedure Memo1OnPreviewDblClick(Sender: TfrxView; Button: TMouseButton; Shift: Integer; var Modified: Boolean);
  begin
     Page2.Visible := True;
     Report.ShowReport;
  end;
  

  
  На Page2 размещаете элементы которые вам нужны. Если аргументы запроса для второй страницы лежат в TagStr, то перед Page2.Visible := True; назначаете их параметрам запроса и выполняете, что то вроде этого: BDEQuery1.Active := True;
  Другими словами получится что то вроде этого:

  procedure Memo1OnPreviewDblClick(Sender: TfrxView; Button: TMouseButton; Shift: Integer; var Modified: Boolean);
  begin
     BDEQuery1.Params[0] := Memo1.TagStr;
     BDEQuery1.Active := True;
     Page2.Visible := True;
     Report.ShowReport;
  end;