掲示板システム
ホーム
アクセス解析
カテゴリ
ログアウト
ScrollBox上でImageを正確な位置に配置するには？ (ID：30734)
名前
ホームページ(ブログ、Twitterなど)のURL (省略可)
本文
ScrollBox上にImageを動的に生成しているのですが、ScrollBoxのスクロールバーを移動させると、次に生成されるImageの位置が正確ではありません。 うまく説明できないので、ソースを載せます。 procedure TForm1.Button1Click(Sender: TObject); var Image: TImage; begin Image := TImage.Create(ScrollBox1); with Image do begin Imagelist1.GetBitmap(i,Image.Picture.Bitmap); Parent := ScrollBox1; Name := 'Image' + IntToStr(i); Height := 100; Width := 100; Left := 1; Top := i*100; Tag := i; end; i := i + 1; end; procedure TForm1.FormCreate(Sender: TObject); begin i := 0; end; Button1を押すたびにImageListに格納しているImageを呼び出し、100＊100のImageを縦方向に並べているのですが、 Scrollバーが出現した後にそのバーを動かすと、その後に生成されるImageの位置がずれてしまいます。 スクロールバーを動かしてもImageの位置がずれないようにする方法はありますか？
←解決時は質問者本人がここをチェックしてください。
戻る
掲示板システム
Copyright 2021 Takeshi Okamoto All Rights Reserved.