Menambahkan Date Time Picker di Raudus

Seperti yang pernah saya utarakan, Raudus adalah Framework yang memungkinkan kita membuat aplikasi berbasis website dengan Pascal (dalam hal ini adalah delphi). karena untuk aplikasi berbasis website, menurut pengalaman pribadi saya, jadi tidak semua komponen delphi dapat kita gunakan pada form Raudus. sebut saja komponen Date Picker yang memiliki peran cukup penting dalam membangun aplikasi.

Pada kesempatan ini saya akan berbagi trik bagaimana menambahkan komponen date time picker kedalam form kita (raudus).

1. Langkah pertama adalah silahkan download komponennya disini. ekstrack lalu tambahkan kedalam folder projek anda.

2.  Berikutnya adalah mendefinisikan pada uses bahwa kita akan menggunakan komponen tersebut.

 uses
  ..., DateUtils, RxExtPickerDate;

3. Lanjutkan dengan membuat sebuah prosedure private 

   private
   RxExtPickerDate1: TRxExtPickerDate;
   procedure RxExtPickerDate1Select(Sender: TObject);

4. Prosedure RxdatePickerDate1Select akan menyimpak aksi jika tanggal dipilih pada Date Picker sedangkan RxDatePickerDate1 adalah Prosedure DatePicker itu sendiri.

5. Kita lanjutkan dengan menambahkan aksi untuk date picker

// Jika Date Picker di Select / Dipilih
procedure TForm1.RxExtPickerDate1Select(Sender: TObject);
begin
  RaEdit1.Text := DateToStr(RxExtPickerDate1.Value);
  RxExtPickerDate1.Destroy;
end;

6. Tambahkan sebuah RaEdit dan RaButton pada form Raudus anda. klik dua kali pada RaButton lalu tambahkan kode berikut.

  RxExtPickerDate1 := TRxExtPickerDate.Create(Self);
  RxExtPickerDate1.Parent := Self;
  RxExtPickerDate1.SetBounds(10, 40, RxExtPickerDate1.Width, RxExtPickerDate1.Height);
  RxExtPickerDate1.OnSelect := RxExtPickerDate1Select;
  RxExtPickerDate1.Value := Now;