掲示板システム
ホーム
アクセス解析
カテゴリ
ログアウト
実行時に図形を自由にサイズ変更するには？ (ID:503)
名前
ホームページ(ブログ、Twitterなど)のURL (省略可)
本文
Delphiでは黒い四角はウィンドウですよ。GrabWindowだったか、GrapPanelだったか。 ほかのソフトでどうかは知りませんが。 １００個っていうのは、リサイズ可能な図形の数ですよね。 それらすべてにリサイズ用の黒い四角は必要ないと思います。場合にもよりますが、１００個の図形を並べていたときに、８００個の黒い四角は邪魔じゃないですか？ それならば、それぞれの図形にフォーカス(のようなもの)が当てられたときにだけ、黒い四角をその位置に表示させれば、８個の■だけですみます。 もちろん、黒い四角以外の図形はLineToやRectangleで描画したものです。 つまり、フォームやメニュー、ボタンなどの基本的なウィンドウを除けば、 Image1: TImage（複数の図形を表示するため） GrabPanel1〜8: TPanel(リサイズのため) の、９つのウィンドウが必要になります。 前に作ったんですが、手元にはないです。 そのときは、図形のリサイズではなく、動的に配置したコントロールのリサイズでした。 面倒ですが、GrabPanel1〜8を、 １２３ ４ ５ ６７８ として、Tagに値を入れておいて、case ofを２回に分けて、左右移動、上下移動をチェックすれば結構簡単になります。 Tagが、1,2,3だったら上辺が、縦方向に移動可能。6,7,8だったら下辺が縦方向に移動可能。 1,4,6だったら左辺が、横方向に移動可能。3,5,8だったら右辺が、横方向に移動可能。 これならば、１〜８のリサイズ用パネルすべてのイベントを一括に、簡単に実装できます。
←解決時は質問者本人がここをチェックしてください。
更新する
戻る
掲示板システム
Copyright 2021 Takeshi Okamoto All Rights Reserved.