DateEdit コントロールを最新の状態に保つ簡単な方法を調べている方は、Update DateEdit Demoを確認してください。このクロスプラットフォーム アプリケーションにより、使用OSに関係なく、メモリ内データ テーブルを介してDateEditコントロールを簡単に更新できます。また、これはDelphiに搭載されている機能であるため、コードがクリーンで信頼できるものであることを確認できます。今すぐUpdate DateEdit Demoをダウンロードしてご確認ください。
フルクロスプラットフォームのDateEditデータバインディングのソースコードをGithubからダウンロード
このデモは、カメラデモ、絵文字デモ、ペイントデモなど、100以上のクロスプラットフォームデモの一部です。
目次
ソフトウェア開発におけるDateEdit
DateEditコントロールは、日付情報の入力、編集、および書式設定を可能にするソフトウェア開発ツールです。通常、カレンダー、スケジューリング ツール、電子メール クライアントなど、日付データを入力または表示する必要があるアプリケーションで使用されます。通常、DateEditコントロールには、日、週、月、年を加算または減算する機能など、日付の入力と管理を容易にするさまざまな機能があります。一部のDateEditコントロールでは、日付範囲を設定したり、日付形式を指定したりすることもできます。一般的に、DateEditコントロールを使用することで、日付データの入力と操作のプロセスを大幅に簡素化できます。
画面ショット
デモのソースコード
|
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 |
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, Data.Bind.Components, FMX.DateTimeCtrls, Data.Bind.DBScope, Data.DB, FireDAC.Comp.DataSet, FireDAC.Comp.Client, FMX.Edit, FMX.StdCtrls, FMX.Effects, FMX.Controls.Presentation; type TForm1 = class(TForm) MaterialOxfordBlueSB: TStyleBook; ToolBar1: TToolBar; ShadowEffect4: TShadowEffect; Label1: TLabel; Label2: TLabel; BehindEdit1: TEdit; <strong> FDMemTable1: TFDMemTable; BindSourceDB1: TBindSourceDB; BindingsList1: TBindingsList; LinkPropertyToFieldText: TLinkPropertyToField; DateEdit1: TDateEdit; LinkControlToField1: TLinkControlToField; procedure DateEdit1Change(Sender: TObject); procedure BehindEdit1Validate(Sender: TObject; var Text: string); procedure FormCreate(Sender: TObject);</strong> private { Private declarations } public { Public declarations } end; var Form1: TForm1; implementation {$R *.fmx} <strong>procedure TForm1.DateEdit1Change(Sender: TObject); begin BehindEdit1.Text := DateEdit1.Text; TLinkObservers.ControlChanged(BehindEdit1); end; procedure TForm1.BehindEdit1Validate(Sender: TObject; var Text: string); var LValue: TDateTime; begin LValue := StrToDateTime(Text); if LValue<>DateEdit1.DateTime then DateEdit1.DateTime := StrToDateTime(Text); end; procedure TForm1.FormCreate(Sender: TObject); begin BehindEdit1.Text := DateTimeToStr(Now); end;</strong> end. |
データバインディングの定義
Formのプロパティ設定
|
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 |
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 LinkControlToField1: TLinkControlToField Category = 'Quick Bindings' DataSource = BindSourceDB1 FieldName = 'Value' Control = BehindEdit1 Track = False end end |
クロスプラットフォームアプリのプログラミング手法を学ぶには
今すぐ Coding Boot Camp 2022に登録してください。ゲーム、JavaScript、Web、Python、SQL、データベース、iOS、MacOS、Android、モバイル、Linux、Windows、デスクトップ、サーバー、Arduinoなど、プログラミングに関するさまざまなトピックを学ぶことができます。
Design. Code. Compile. Deploy.
トライアル版をダウンロードいますぐアップグレード！
Delphi Community Edition（無料）C++Builder Community Edition（無料）
Japanese 
English 
French 
Portuguese 
German