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

andreymx

Как по клику на FrxMemo сформировать новую страничку (или SubReport) - c расшифровкой данных.
Ключевые параметры запроса для новой страницы будут браться из FrxMemo.TagStr.
В основном запросе данных для расшифровки нет.

Ubik77

Ну... если я правильно понял задачу, то можно выкрутится так:

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;