マルチプラットフォームのデータバインドラジオボタンサンプル

Radio button data binding multi platform

Update Radio Button Demoは、データテーブルを最新の状態に保つのに最適なサンプルです。このクロスプラットフォームデモアプリは、Live Bindingを使用して、ラジオボタンが変更されるたびにメモリ内データテーブルを自動的に更新します。Android、iOS、macOS、Windows、Linux をサポートしているため、どのプラットフォームでも優れた外観と操作性を備えた単一コードベースアプリを構築できます。

フルクロスプラットフォームのラジオボタンデータバインディングのサンプルコードをGithubからダウンロード

このデモは、カメラデモ、絵文字デモ、ペイントデモなど、100以上のクロスプラットフォームデモの一部です。

ソフトウェア開発におけるラジオボタンコントロール

ラジオボタンは、ユーザーが相互に排他的なオプションのグループから 1 つのオプションを選択できるようにするグラフィカルユーザーインターフェイス (GUI) 要素の一種です。ラジオボタンコントロールは、選択または選択解除できる丸いボタンで構成されます。ユーザーがオプションを選択すると、ボタンは「塗りつぶし」または「チェックされた」状態になります。ラジオボタンは通常、性別の選択や、Yes / Noの質問に対する回答の選択など、選択肢が限られている場合に使用されます。ソフトウェア開発では、チェックボックスなどの他の種類の GUI 要素よりもラジオボタンが優先的に使用されることがしばしばです。これは、ラジオボタンが占有する画面スペースが少なく、ユーザーが理解しやすいためです。

画面ショット

データバインドラジオボタンデモのソースコード

unit Unit1;

interface

uses
  System.SysUtils, System.Types, System.UITypes, System.Classes, System.Variants,
  FMX.Types, FMX.Controls, FMX.Forms, FMX.Graphics, FMX.Dialogs,
  FireDAC.Stan.Intf, FireDAC.Stan.Option, FireDAC.Stan.Param,
  FireDAC.Stan.Error, FireDAC.DatS, FireDAC.Phys.Intf, FireDAC.DApt.Intf,
  FireDAC.Stan.StorageBin, Data.Bind.EngExt, Fmx.Bind.DBEngExt, System.Rtti,
  System.Bindings.Outputs, Fmx.Bind.Editors, FMX.StdCtrls, FMX.Layouts,
  Data.Bind.Components, Data.Bind.DBScope, Data.DB,
  FireDAC.Comp.DataSet, FireDAC.Comp.Client, FMX.Effects,
  FMX.Controls.Presentation;

type
  TForm1 = class(TForm)
    MaterialOxfordBlueSB: TStyleBook;
    ToolBar1: TToolBar;
    ShadowEffect4: TShadowEffect;
    Label1: TLabel;
    Label2: TLabel;
<strong>    FDMemTable1: TFDMemTable;
    BindSourceDB1: TBindSourceDB;
    BindingsList1: TBindingsList;
    LinkPropertyToFieldText: TLinkPropertyToField;
</strong>    Layout1: TLayout;<strong>
    RadioButton1: TRadioButton;
    RadioButton2: TRadioButton;
    RadioButton3: TRadioButton;
    LinkPropertyToFieldIsChecked: TLinkPropertyToField;
    LinkPropertyToFieldIsChecked2: TLinkPropertyToField;
    LinkPropertyToFieldIsChecked3: TLinkPropertyToField;
    procedure RadioButton1Click(Sender: TObject);</strong>
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.fmx}

<strong>procedure TForm1.RadioButton1Click(Sender: TObject);
begin
  if Sender=RadioButton1 then
    begin
       if not TRadioButton(Sender).IsChecked then
         begin
           FDMemTable1.Edit;
           FDMemTable1.FieldByName('Value').AsString := 'Delphi';
           FDMemTable1.Post;
         end;
    end
  else if Sender=RadioButton2 then
    begin
       if not TRadioButton(Sender).IsChecked then
         begin
           FDMemTable1.Edit;
           FDMemTable1.FieldByName('Value').AsString := 'Is';
           FDMemTable1.Post;
         end;
    end
  else if Sender=RadioButton3 then
    begin
       if not TRadioButton(Sender).IsChecked then
         begin
           FDMemTable1.Edit;
           FDMemTable1.FieldByName('Value').AsString := 'Awesome';
           FDMemTable1.Post;
         end;
    end;
end;</strong>

end.

unit Unit1;

interface

uses

System.SysUtils, System.Types, System.UITypes, System.クラス, System.Variants,

FMX.Types, FMX.Controls, FMX.Forms, FMX.Graphics, FMX.Dialogs,

FireDAC.Stan.Intf, FireDAC.Stan.Option, FireDAC.Stan.Param,

FireDAC.Stan.Error, FireDAC.DatS, FireDAC.Phys.Intf, FireDAC.DApt.Intf,

FireDAC.Stan.StorageBin, Data.Bind.EngExt, Fmx.Bind.DBEngExt, System.Rtti,

System.Bindings.Outputs, Fmx.Bind.Editors, FMX.StdCtrls, FMX.Layouts,

Data.Bind.Components, Data.Bind.DBScope, Data.DB,

FireDAC.Comp.DataSet, FireDAC.Comp.Client, FMX.Effects,

FMX.Controls.Presentation;

type

TForm1 = class(TForm)

MaterialOxfordBlueSB: TStyleBook;

ToolBar1: TToolBar;

ShadowEffect4: TShadowEffect;

Label1: TLabel;

Label2: TLabel;

FDMemTable1: TFDMemTable;

BindSourceDB1: TBindSourceDB;

BindingsList1: TBindingsList;

LinkPropertyToFieldText: TLinkPropertyToField;

Layout1: TLayout;

RadioButton1: TRadioButton;

RadioButton2: TRadioButton;

RadioButton3: TRadioButton;

LinkPropertyToFieldIsChecked: TLinkPropertyToField;

LinkPropertyToFieldIsChecked2: TLinkPropertyToField;

LinkPropertyToFieldIsChecked3: TLinkPropertyToField;

procedure RadioButton1Click(Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }

end;

var

Form1: TForm1;

implementation

{$R *.fmx}

procedure TForm1.RadioButton1Click(Sender: TObject);

begin

if Sender=RadioButton1 then

begin

if ない TRadioButton(Sender).IsChecked then

begin

FDMemTable1.Edit;

FDMemTable1.FieldByName('Value').AsString := 'Delphi';

FDMemTable1.Post;

end;

end

else if Sender=RadioButton2 then

begin

if ない TRadioButton(Sender).IsChecked then

begin

FDMemTable1.Edit;

FDMemTable1.FieldByName('Value').AsString := 'Is';

FDMemTable1.Post;

end;

end

else if Sender=RadioButton3 then

begin

if ない TRadioButton(Sender).IsChecked then

begin

FDMemTable1.Edit;

FDMemTable1.FieldByName('Value').AsString := 'Awesome';

FDMemTable1.Post;

end;

end;

end.

Formコンポーネントのデータバインディングオブジェクトの設定

  object BindSourceDB1: TBindSourceDB
    DataSet = FDMemTable1
    ScopeMappings = &lt;&gt;
    Left = 144
    Top = 224
  end
  object BindingsList1: TBindingsList
    Methods = &lt;&gt;
    OutputConverters = &lt;&gt;
    Left = 20
    Top = 5
    object LinkPropertyToFieldText: TLinkPropertyToField
      Category = 'Quick Bindings'
      DataSource = BindSourceDB1
      FieldName = 'Value'
      Component = Label2
      ComponentProperty = 'Text'
    end
    object LinkPropertyToFieldIsChecked: TLinkPropertyToField
      Category = 'Quick Bindings'
      DataSource = BindSourceDB1
      FieldName = 'Value'
      Component = RadioButton1
<strong>      CustomFormat = 'IfThen(ToStr(%s)="Delphi",True, False)'</strong>
      ComponentProperty = 'IsChecked'
    end
    object LinkPropertyToFieldIsChecked2: TLinkPropertyToField
      Category = 'Quick Bindings'
      DataSource = BindSourceDB1
      FieldName = 'Value'
      Component = RadioButton2
<strong>      CustomFormat = 'IfThen(ToStr(%s)="Is",True, False)'</strong>
      ComponentProperty = 'IsChecked'
    end
    object LinkPropertyToFieldIsChecked3: TLinkPropertyToField
      Category = 'Quick Bindings'
      DataSource = BindSourceDB1
      FieldName = 'Value'
      Component = RadioButton3
<strong>      CustomFormat = 'IfThen(ToStr(%s)="Awesome",True, False)'</strong>
      ComponentProperty = 'IsChecked'
    end
  end

object BindSourceDB1: TBindSourceDB

DataSet = FDMemTable1

ScopeMappings = <>

Left = 144

Top = 224

end

object BindingsList1: TBindingsList

Methods = <>

OutputConverters = <>

Left = 20

Top = 5

object LinkPropertyToFieldText: TLinkPropertyToField

Category = 'Quick Bindings'

DataSource = BindSourceDB1

FieldName = 'Value'

Component = Label2

ComponentProperty = 'Text'

end

object LinkPropertyToFieldIsChecked: TLinkPropertyToField

Category = 'Quick Bindings'

DataSource = BindSourceDB1

FieldName = 'Value'

Component = RadioButton1

CustomFormat = 'IfThen(ToStr(%s)="Delphi",True, False)'

ComponentProperty = 'IsChecked'

end

object LinkPropertyToFieldIsChecked2: TLinkPropertyToField

Category = 'Quick Bindings'

DataSource = BindSourceDB1

FieldName = 'Value'

Component = RadioButton2

CustomFormat = 'IfThen(ToStr(%s)="Is",True, False)'

ComponentProperty = 'IsChecked'

end

object LinkPropertyToFieldIsChecked3: TLinkPropertyToField

Category = 'Quick Bindings'

DataSource = BindSourceDB1

FieldName = 'Value'

Component = RadioButton3

CustomFormat = 'IfThen(ToStr(%s)="Awesome",True, False)'

ComponentProperty = 'IsChecked'

end

What does the data bindings through LiveBindings look like?

クロスプラットフォームアプリのプログラミング手法を学ぶには

今すぐ Coding Boot Camp 2022に登録してください。ゲーム、JavaScript、Web、Python、SQL、データベース、iOS、MacOS、Android、モバイル、Linux、Windows、デスクトップ、サーバー、Arduinoなど、プログラミングに関するさまざまなトピックを学ぶことができます。

RAD Studio、Delphi、C++Builderを用いれば、開発時間を短縮し、より早く市場に投入可能！
Design. Code. Compile. Deploy.
トライアル版をダウンロードいますぐアップグレード！

Delphi Community Edition（無料）C++Builder Community Edition（無料）

マルチプラットフォームのデータバインドラジオボタンサンプル

ソフトウェア開発におけるラジオボタンコントロール

画面ショット

データバインドラジオボタンデモのソースコード

Formコンポーネントのデータバインディングオブジェクトの設定

What does the data bindings through LiveBindings look like?

クロスプラットフォームアプリのプログラミング手法を学ぶには

Related

このサイトについて

最近のニュース

役立つリンク

問い合わせ先

マルチプラットフォームのデータバインド ラジオボタン サンプル

ソフトウェア開発におけるラジオボタンコントロール

画面ショット

データバインド ラジオボタン デモのソースコード

Formコンポーネントのデータバインディング オブジェクトの設定

What does the data bindings through LiveBindings look like?

クロスプラットフォームアプリのプログラミング手法を学ぶには

Related

このサイトについて

最近のニュース

役立つリンク

問い合わせ先

マルチプラットフォームのデータバインドラジオボタンサンプル

データバインドラジオボタンデモのソースコード

Formコンポーネントのデータバインディングオブジェクトの設定