DelphiXE3 [FMX]グループボックス(GroupBox)
2013/09/27
前頁で[Standard]内の「RadioButton」（ラジオボタン）について書きましたので次は、同じく[Standard]内の「GroupBox」（グループボックス）です。
【Delphi2010の記事はこちら】
【DelphiXE3[VCLアプリケーション]の記事はこちら】
（ヘルプより）
ClipChildren
現在のコントロールにクリップした子があるかどうかを示します。
ClipChildrenは、コントロールにクリップした子があるならTrue、そうでなければFalseとなります。
この
ClipChildren
プロパティはデフォルトで False となっていますが、False状態の場合、グループボックス内に配置する各コントロールはクリップされませんので、グループボックスの外側にも配置出来てしまいます。
従来は自動的にクリップされていましたので、従来と同様にしたい場合は意識してこれをTrueに変える必要があります。
RotationAngle
コントロールが X 軸に対して回転されるときの量（角度）を示します。
正の角度は、時計周りの回転を意味します。反時計回りの場合、負の値を使用します。
回転の中心を設定するには、RotationCenterを使用します。
RotationCenter
コントロールのピボット点の位置を示します。
回転の中心点の座標は、0〜1までの範囲の数です。座標(0,0)の点はコントロールの左上隅に相当し、座標(1,1)の点はコントロールの右下隅に相当します。回転のデフォルトの中心点は、(0.5,0.5)です。
[0,0]〜[1,1]の範囲外の値は、削減されます。
Scale
コントロールのスケールを示します。
Scale座標を設定すると、各軸上のスケールを示すことができます。
スケールの初期値は、各軸上の1です。
回転・スケールは、グループボックス全体に掛かりますので、グループボックス内の各コンポーネントのプロパティ内容を変える必要はありません。角度＝0、スケール＝1、のままで大丈夫です。
↓
試しに左図のような画面を構成してみました。
これをコンパイル・実行すると…
RadioButton1をクリックしてチェックをしたあと、RadioButton4をクリックしてみると…
RadioButton1のチェックは消えてしまいますね。従来であれば自動的にクリアされるはずですが…
どうもグループボックス内の各コンポーネントの
GroupName
プロパティを指定しないといけない様子ですね。
あと、現在の状態では、フォーカスが全く見えないので、TABキーでのフォーカス移動がちゃんと出来ているのか、今現在、どこにフォーカスがあるのか、さっぱり分かりません。従来のように、コントロールを囲むような点線の四角でも表示してくれると良いのですが…
（※どこかの設定で可能なのかもしれませんが現在は未確認状態です）
というわけで、GroupBox1内の各コンポーネントのGroupNameプロパティを「GroupBox1」と指定する事にしました。また、フォーカスを見えるようにするため、スタイルブック StyleBook1 を追加し、フォームにこれを指定し、「Air.Style」を読み込ませてみました。
↓
↓
↓
↓
試しに左図のような画面を構成してみました。
これをコンパイル・実行します。
最初はフォーカス表示されていません。ここでは何もしていませんが、意図的に、フォーム表示開始時（OnShowイベント等）に 〜.SetFocusをすればいいと思います。
TABキーを押せばフォーカス移動表示が行われます。フォーカスの表示方法は、スタイルによって違う、のかもしれませんね。
空白キーを押せば、マウスクリックと同様となります。
グループボックスそのものは、フォーカスをもたない様子です？ まぁ、グループボックス自身がフォーカスを持ってもあまり意味は無いのでそれは別段一向に構いませんけれど。
グループボックス内での各プロパティの GroupNameプロパティを指定しておけば、別段問題なく、グループボックス内でも独立してラジオボタンのチェックが可能になっています。
RotationAngle
プロパティを指定することによって
というような表現が簡単に出来る、というのはちょっと面白いですね。位置合わせが少し手間かもしれませんが。
バッチファイル
ＢＡＳＩＣ
C言語のお勉強
拡張子な話
DOSプログラム
Delphi
>
Delphi入門編
>
Delphi2010
>
DelphiXE3
▲2013/09/26
2013/09/27
▼2013/09/28
シェアウェア
Script!World
データベース
(C)Copyright 1999-2015. By AFsoft All Rights Reserved.
↓
↓
