掲示板システム
ホーム
アクセス解析
カテゴリ
ログアウト
Googleマップのようにタイル状の画像を表示＆スクロールするには？ (ID：43567)
名前
ホームページ(ブログ、Twitterなど)のURL (省略可)
本文
>・TImage×１、TScrollBar×２（縦／横）を配置 >・ScrollBarのそれぞれの.Maxはタイル画像の数（縦／横） スムーズスクロールさせないで切り替えだけなら procedure TForm1.FormCreate(Sender: TObject); begin ScrollBar1.Kind := sbVertical; //縦 ScrollBar2.Kind := sbHorizontal; //横 ScrollBar1.OnScroll := ScrollBar1Scroll; ScrollBar1.OnScroll := ScrollBar1Scroll; end; procedure TForm1.ScrollBar1Scroll(Sender: TObject; ScrollCode: TScrollCode; var ScrollPos: Integer); var FileName: String; begin //縦_横.BMP FileName := IntToStr(ScrollBar1.Position) + '_' + IntToStr(ScrollBar2.Position) + '.BMP'; Image1.Picture.LoadFromFile(FileName); Exit; end; だけだぞ
←解決時は質問者本人がここをチェックしてください。
戻る
掲示板システム
Copyright 2021 Takeshi Okamoto All Rights Reserved.