(1) 메인 프로그램에는 다음과 같이 데이터가 들어갑니다.
Edit1.Text := 'AAA'
Edit2.Text := 'BBB'
Edit3.Text := 'CCC'
(2) Fast Report 4에서는 PageHeader 밴드에 Memo1, Memo2, Memo3 이렇게 메모객체를 나열하였습니다.
(3) Edit1.Text의 값을 Fast Report에 Memo1 객체에 넣으려고 합니다.
참고로 아래는 제가 작성한 소스입니다.
procedure Tfrm001.Cmd_Print;
begin
frxReport1.ShowReport( True );
end;
procedure Tfrm001.frxReport1GetValue(const VarName: string; var Value: Variant);
begin
if VarName = 'Memo1' then
begin
Value := Edit1.Text;
end;
end;
procedure Tfrm001.Cmd_Print;
begin
Cmd_PrintData;
frxReport1.ShowReport( True );
end;
procedure Tfrm001.Cmd_PrintData;
begin
TfrxShapeView( frxReport1.FindObject('Shape1') ).Visible := True;
TfrxShapeView( frxReport1.FindObject('Shape2') ).Visible := False;
TfrxMemoView( frxReport1.FindObject('Memo1') ).Text := Edit1.Text;
TfrxMemoView( frxReport1.FindObject('Memo2') ).Text := Edit2.Text;
end;