これは pascal.chat のウィキのミラーです。編集、履歴、ログインはそちらで行います。

TRadioGroup/ja

Deutsch · English · Français · Suomi · Русский · 日本語

TRadioGroupは、関連するが相互に排他的なTRadioButtonのグループであり、ユーザーに対して選択肢の1つを選択する必要がある。それは、統合されたTRadioButtonsを持つTGroupBoxのようなものである。

使い方

FormでTRadioGroupを使用するには、単純にComponentパレットの Standardタブでそれを選択し、フォームをクリックして配置します。

例

ジオメトリック図形は、TRadioGroupによってフォームにランダムに描画され、表示される。最初のRadioGroupは図形を決定し、2番目のRadioGroupは個数を決定する。

新しいアプリケーションを作成し、フォームに2つのTRadioGroupを配置する。
オブジェクトインスペクタで、RadioGroup1のNameプロパティをrgShapeに、RadioGroup2のNameプロパティをrgCountに変更する。
rgShapeのCaptionをShapeに、rgCountのCaptionをCountに変更する。
- rgShapeのためのラジオボタンを追加する:
- オブジェクトインスペクタで、rgShapeのItemsプロパティを選択する。
- [...]ボタンをクリックすると、文字列エディタが開く。
- それぞれLines, Rectangles, Ellipsesと入力し、OKボタンをクリックしてエントリを完了する。
rgCountのためにも同様にラジオボタンを追加する(以下のように入力)1、5、10、20、50、100
rgShapeとrgCountのItemIndexプロパティをそれぞれ-1から0に設定して、最初のRadioButtonをcurrently selectedにする。
rgShapeをダブルクリックして、rgShapeのOnClickイベントハンドラを作成する。
同じイベントハンドラをrgCountにも使用する。
- オブジェクトインスペクタでrgCountを選択する。
- ここで、オブジェクトインスペクタでEventsタブを選択してください。
- OnClickイベントに移動し、隣のコンボボックスでrgShapeClickを選択する。
rgShapeまたはrgCountがクリックされるたびに、フォームが再描画されるようにするために、次のコードをイベントハンドラに記述する:

pascal

procedure TForm1.rgShapeClick(Sender: TObject);
begin
  Repaint;
end;

フォームが再描画されるたびに、図形を描画する必要がある。
- オブジェクトインスペクタで Form1 を選択する。
- Eventsタブを選択する。
- OnPaintイベントの横にある [...] ボタンをクリックする。
- ハンドラが作成される。以下のコードを入力する:

pascal

procedure TForm1.FormPaint(Sender: TObject);
var
  i: Integer;
begin
  if TryStrToInt(rgCount.Items[rgCount.ItemIndex], i) then
    for i:=1 to i do begin
      Canvas.Pen.Color:=Random($1000000);
      Canvas.Brush.Color:=Random($1000000);
      case rgShape.Items[rgShape.ItemIndex] of
        'Lines':      Canvas.Line(Random(ClientWidth), Random(ClientHeight), Random(ClientWidth), Random(ClientHeight));
        'Rectangles': Canvas.Rectangle(Random(ClientWidth), Random(ClientHeight), Random(ClientWidth), Random(ClientHeight));
        'Ellipses':   Canvas.Ellipse(Random(ClientWidth), Random(ClientHeight), Random(ClientWidth), Random(ClientHeight));
      end;
    end;
end;

プログラムを実行すると、以下のように見えるだろう:

以下も参照のこと

From the Free Pascal wiki, page "TRadioGroup/ja", as it stood on 2024-03-24 after a change by Ariben, out of the wiki's dump of 2024-05-26. Copyright stays with the author who wrote it, according to the old wiki's Licensing page. If you have concerns about this material, message the admin.

第2版、最終更新：WikiArchive 11-4-2026。