掲示板システム
ホーム
アクセス解析
カテゴリ
ログアウト
QRShapeの動的生成 (ID：21546)
名前
ホームページ(ブログ、Twitterなど)のURL (省略可)
本文
QuickReportで非DBの単一情報の印刷をするためにQRLabelやQRShapeの動的生成＆配置を試してますが、QRShapeの方が上手く表示されません。 環境上、プリントアウトの実験はできてないんですが、よろしく御願いします。 procedure TForm1.Button1Click(Sender: TObject); var CreateLabel:TQRLabel; Rect: Trect; CreateShape:TQRShape; begin CreateLabel := TQRLabel.Create(Unit2.QuickReport2); CreateLabel.Parent := unit2.QuickReport2; Rect.Left := 0; Rect.Right:= 0; Rect.Top := 10; Rect.Bottom:=10; CreateLabel.BoundsRect := Rect; CreateLabel.Caption := 'TEST'; CreateLabel.Name := 'LABELX1'; //成功！ CreateShape := TQRShape.Create(Unit2.QuickReport2.TitleBand1); CreateLabel.Parent := unit2.QuickReport2.TitleBand1; Rect.Top := 50; Rect.Left:= 50; Rect.Right:=100; Rect.Bottom:=100; CreateShape.BoundsRect := Rect; CreateShape.Name := 'SHAPEX'; //失敗! QuickReport2.Preview; end; 環境Win2000+Delphi7
←解決時は質問者本人がここをチェックしてください。
戻る
掲示板システム
Copyright 2021 Takeshi Okamoto All Rights Reserved.