J
jingchen
Unregistered / Unconfirmed
GUEST, unregistred user!
如下的一段代码，运行时没任何显示。望各位大哥指点
var
v:TfrMemoView;
Page: TfrPage;
begin
Page := frReport1.Pages[0];
//报表标题
v := TfrMemoView.Create; // create memo
v.Parent:=tfrband(btReportTitle);//曾看到一段代码用bvReportTitle,但编译通不过
v.SetBounds(0, 20, 0, 20);
v.BandAlign := baWidth;
v.Prop['Alignment'] := frtaCenter; // another way to access properties
v.Prop['Font.Style'] := 2;
v.Prop['Font.Size']:=16;
v.Prop['Font.Style.fsBold']:=True;
v.Prop['AutoWidth']:=True;
v.Memo.Add('s_StrTitle');
v.Visible:=true;
page.Objects.Add(v);
end;
var
v:TfrMemoView;
Page: TfrPage;
begin
Page := frReport1.Pages[0];
//报表标题
v := TfrMemoView.Create; // create memo
v.Parent:=tfrband(btReportTitle);//曾看到一段代码用bvReportTitle,但编译通不过
v.SetBounds(0, 20, 0, 20);
v.BandAlign := baWidth;
v.Prop['Alignment'] := frtaCenter; // another way to access properties
v.Prop['Font.Style'] := 2;
v.Prop['Font.Size']:=16;
v.Prop['Font.Style.fsBold']:=True;
v.Prop['AutoWidth']:=True;
v.Memo.Add('s_StrTitle');
v.Visible:=true;
page.Objects.Add(v);
end;