Membuat Form dengan Efek BorderStyle

Untuk menghilangkan kejenuhan pada tampilan form, maka kali ini saya akan sharing cara membuat form dengan efek BorderStyle,, Sebenarnya mengganti BorderStyle juga dapat dilakukan langsung saat pembuatan program yaitu dengan cara:

1. klik object inspector
2. klik tab properties
3. cari tulisan BorderStyle
4. lalu pilih border style sesuai keinginan anda

Tapi cara ini menurut saya masih kurang karena hanya dapat dilakukan saat program belum dijalankan dan ketika program dijalankan kita tidak dapat mengubah BorderStylenya. Nah agar BorderStyle dari program yang temen - temen buat dapat dirubah saat dijalankan saya akan share caranya untuk temen -temen delphier....
Pertama siapkan form yang akan digunakan setelah itu tambahkan enam buah komponen button pada form tersebut. Designlah form sesuai dengan keinginan anda, untuk sample desaign saya kira - kira seperti ini ya temen

Form Efek BorderStyle

Jika form yang akan digunakan sudah siap lalu ketiklah listing seperti berikut ini:

procedure TBorderForm.Button1Click(Sender: TObject);
begin
BorderForm.BorderStyle:=bsDialog;
end;

procedure TBorderForm.Button2Click(Sender: TObject);
begin
BorderForm.BorderStyle:=bsNone;
end;

procedure TBorderForm.Button3Click(Sender: TObject);
begin
BorderForm.BorderStyle:=bsSingle;
end;

procedure TBorderForm.Button4Click(Sender: TObject);
begin
BorderForm.BorderStyle:=bsSizeable;
end;

procedure TBorderForm.Button5Click(Sender: TObject);
begin
BorderForm.BorderStyle:=bsSizeToolWin;
end;

procedure TBorderForm.Button6Click(Sender: TObject);
begin
BorderForm.BorderStyle:=bsToolWindow;
end;

Setelah itu jalankan program dan coba ubah BorderStyle sesuai keinginan anda sesuai dengan mengeklik Button - button tadi. Yupzzz sekian dulu sharing dari saya hari ini. jika ada kesalahan atau error mohon kritik atau komen dari temen - temen agar dapat segera saya perbaiki.. Sangkyu buat kunjungan temen - temen.....