TSizeCtrl

tsizectrl

非視覚的なDelphiコンポーネントは、ランタイムの移動とコントロールのサイズ変更を可能にします。

元の著者：アンガス・ジョンソン

http://angusj.com/delphi/

http://angusj.com/delphi/sizectrl.html

テスト：

Delphi 3、4、5、6、7、10.1ベルリン、10.2東京

バージョン：

これは著者の最後のバージョン以来のフォークです（2006年9月7.2〜3）

tsizectrlコンポーネントスクリーンショット：

サイジング：

動き：

アライメントコントロールは、固定境界に沿って「グラブボタン」ハンドルを無効にしています。

複数のコントロールを一緒に移動またはサイズ変更できます。

基本的な使用法：

1. フォームにtsizectrlコンポーネント（sizectrl1）を追加します。
2. 必要に応じて、sizectrl1プロパティ（ボタン色など）を設定します。
3. 必要に応じて、イベントメソッド（開始、開始、サイズ/移動イベント）を割り当てます。
4. フォームのOnCreateメソッド、Sizectrl1.registerControl（）すべての可能なターゲット。
5. 割り当てられたMenuitemメソッドでは、sizectrl1.enabledプロパティを切り替えます。
6. 有効になったら：
   • [またはタブ]をクリックして、ターゲットを選択します。
   • シフトキーを押し下げて複数のターゲットを選択します。
   • ターゲットのサイズをクリックしてドラッグするか、矢印キーを使用しながらシフトキーを押し下げてターゲットをサイズ変更します。
   • ターゲットをクリックしてドラッグするか、矢印キーを使用してコントロールを移動します。

雑記：

ListViewヘッダーのwm_setcursorメッセージをキャプチャするには、ヘッダーのメッセージハンドラーを引っ掛ける必要があります。カーソル管理のこの小さな改善は、かなりの余分なプログラミングの取り組みを正当化するとは思わない。