Q&A

  • Fast Report에서 Memo 객체에 값 넣기
  
(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;  
1  COMMENTS
  • Profile
    coderoad 2008.12.30 20:20
    이렇게 처리했습니다.

    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;