掲示板システム
ホーム
アクセス解析
カテゴリ
ログアウト
QRShapeの動的生成 (ID：21554)
名前
ホームページ(ブログ、Twitterなど)のURL (省略可)
本文
さきほど >cp := FindComponent('CreateLabel'); としていたのは cp := FindComponent('QLabelX'); でした。すみません。 で、 >procedure TForm2.FormCreate(Sender:TObject); >var > CreateLabel: TQRLabel; >begin > CreateLabel := TQRLabel.Create(QuickRep); > CreateLabel.Parent := QuickRep; > CreateLabel.Name := 'QLabelX'; >end; を procedure TForm2.FormCreate(Sender:TObject); begin with TQRLabel.Create(Self) do begin Parent := QuickRep; Name := 'QLabelX'; end; end; にして、 > TQRLabel('QLabelX').Caption := '出力文字'; をコメントアウト // TQRLabel('QLabelX').Caption := '出力文字'; した場合は、どうです？
←解決時は質問者本人がここをチェックしてください。
戻る
掲示板システム
Copyright 2021 Takeshi Okamoto All Rights Reserved.