|
2025/2/13 (木) 08:52:09 Mr.XRAY |
> DragResizeのサイズ変更用Shapeの上にあると、
よく理解してのレスではありませんが、TShape を独立して配置するといことであれば、
この [ 図形の移動リサイズ関係サンプル ] は、
基本的に、
TMyDragResize = class(TplBaseDragResize)
のように、TplBaseDragResize を継承したクラスを作成 (コード) し、
そのインスタンスを実行時に生成して使用する形式となります。
例えば、円を描画するクラス、四角形を描画するクラス、文字を描画するクラス
なとを作成します。
TShape を単独使用することは考慮していません。
TShape はすでにグラブハンドルとラバーバンドで使用しています。
[ 09_描画用コントロールの基本クラスのソースコード ]
http://mrxray.on.coocan.jp/Delphi/ResizeSamples/R010_BaseDragResize.htm#09
TplBaseRubberBand = class(TShape)
^^^^^^
TplBaseGrabHandle = class(TShape)
^^^^^^
|
|