掲示板システム
ホーム
アクセス解析
カテゴリ
ログアウト
QRShapeの動的生成 (ID：21552)
名前
ホームページ(ブログ、Twitterなど)のURL (省略可)
本文
>procedure TForm2.FormCreate(Sender:TObject); >var > CreateLabel: TQRLabel; の CreateLabel: TQRLabel; を TForm2 = class(TForm) .. private { Private 宣言 } CreateLabel: TQRLabel; // <== ここ .. end; のように移動し、 >//procedure TForm2.BeforePrint(Sender: TCustomQuickRep;var PrintReport: Boolean); >begin > TQRLabel('QLabelX').Caption := '出力文字'; > TQRLabel(FindComponent('QLabelX')).Caption := '出力文字'; >end; の部分を //procedure TForm2.BeforePrint(Sender: TCustomQuickRep;var PrintReport: Boolean); var cp: TComponent; begin cp := FindComponent('CreateLabel'); if cp <> Nil then begin TQRLabel(cp).Caption := '出力文字'; end; end; にしてはどうでしょう？
←解決時は質問者本人がここをチェックしてください。
戻る
掲示板システム
Copyright 2021 Takeshi Okamoto All Rights Reserved.