Cara Menambahkan Komponen Visual secara Runtime dengan Lazarus Free Pascal

 


Ada alasan beberapa program membutuhkan penambahan komponen visual secara runtime. Maksudnya pengguna dapat menambahkan komponen ketika program itu sedang dijalankan. Pada artikel ini mengulas bagaimana kita bisa membuat TButton dan TEDit secara runtime.

Dibawah memperlihatkan contoh membuat sebuah tombol secara runtime. Pastikan kamu juga menginisialisasi properti yang diperlukan agar terlihat normal ketika ditampilkan.

procedure TForm1.FormCreate(Sender: TObject);
var
  BtnSum: TButton;
begin
  // Createa button to add numbers
  BtnSum := TButton.Create(Self);
  BtnSum.Parent := Self;
  BtnSum.Caption := 'Sum All';
  BtnSum.Left := Button1.Left;
  BtnSum.Top := Button1.top + Button1.Height + 16;
  BtnSum.Height:= 31;
  BtnSum.Width:= 200;
  BtnSum.OnClick := @btnSumClick;
end;

Tertarik buat mencoba? Silahkan unduh source code nya disini. Jangan lupa lihat video nya untuk penjelasan program menambahkan komponen visual secara runtime.


Comments

Post a Comment

Popular posts from this blog

Membuat Program Music First Player dengan Lazarus Free Pascal

Image
 Program ini dibuat untuk kamu yang lagi suka mendengarkan musik atau lagu tertentu. Program di-set untuk dijalankan ketika Windows melakukan startup atau komputer dihidupkan dan Music First Player langsung memainkan file mp3 yang telah disiapkan. Program MP3 player ini hanya menjalankan sebuah file mp3 kemudian program ditutup setelah musik selesai diputar. Karena program ini memang sengaja dibuat hanya akan menjalankan sebuah file musik dan kamu melanjutkan aktifitas komputer lainnya. Program MP3 Music First player menggunakan unit MMSystem untuk menjalankan file multimedia seperti file MP3. Tertarik mencoba Music First Player? Silahkan unduh program exe nya atau source code yang bisa kamu modifikasi disini . Satu lagi, lihat vieo dibawah untuk penjelasan cara kerja program ini.
Read more

Cara Membuat Program Tulisan Berjalan atau Running Text Menggunakan Lazarus Free Pascal

Image
  Tulisan berjalan, sering disebut running text banyak digunakan untuk memberikan informasi berita, harga produk dan lain-lain supaya publik yang melihat dapat mengetahuinya. Artikel tutorial pemrograman Lazarus Free Pascal tentang cara membuat program tulisan berjalan atau running text. Program ini sangat mudah dibuat dengan memanfaatkan komponen TTimer yang akan memroses prosedur berulang ketika di enabled. procedure TForm1.Timer1Timer(Sender: TObject); begin     //Move label     Label1.Left:= Label1.Left + MovingStep; //Minus MovingStep will move to left     if not cbRotate.Checked then     begin         if (Label1.Left+label1.Width) < 0 then             Timer1.Enabled:= false         else         if Label1.Left > Width then         Timer1.Enabled:= false;         end ...
Read more