Listo con SetBounds y AutoWidth
[ delphi ]
procedure TForm1.Button3Click(Sender: TObject);
Var frxPage: TfrxReportPage;
frxMemoView: TfrxMemoView;
Begin
frxReport1.Clear;
frxPage := TfrxReportPage.Create(frxReport1);
frxPage.CreateUniqueName;
frxMemoView := TfrxMemoView.Create(frxPage);
frxMemoView.CreateUniqueName;
frxMemoview.Text:='CREADO O NO CREADO ESA ES LA CUESTION';
frxmemoView.SetBounds(10,11,200,15); // Left, Top, Width, Height
frxmemoView.AutoWidth := True; // con esto el width se adapta automáticamente
frxReport1.ShowReport;
end;
|