Jannah Theme License is not validated, Go to the theme options page to validate the license, You need a single license for each domain name.
DelphiPemrograman

Aplikasi Penyeleksian dan Pengulangan dengan Delphi #40

beruang kutub berwarna putih

andrypein.net : Posting kemarin kan tentang aplikasi yang mengubah ukuran label dengan combobox.

Kali ini sekarang masih dengan sesi mengubah2 namun kali ini dengan memo, perataan, dan style, tepatnya aplikasi penyeleksian dan pengulangan sederhana.

bentuk form mungkin seperti ini :

aplikasi penyeleksian
form

Setelah dirancang dengan bentuk seperti diatas, kita langsung ke listing kode nya :

di form tersebut terdapat 1 memo,1 listbox,3 radiobutton,3 checkbox,1 combobox,1 button keluar,
dan begini lah kodingnya.

ini untuk kejadian (event) form show

Procedure TForm1.FormShow(Sender: TObject);
var a:integer;
begin
 for a:=8 to 30 do
  begin
   combobox1.Items.Add(IntToStr(a));
  end;
 combobox1.ItemIndex:=0;
 memo1.text:='';
 listbox1.Items:=screen.Fonts;
 listbox1.ItemIndex:=0;
end;

ini untuk masing2 checkbox

Procedure TForm1.CheckBox1Click(Sender: TObject);
begin
 with form1.Memo.Font do
  if checkbox1.Checked = true then
   style:= style+[fsbold]
  else
   style:= style-[fsbold];
end;

 

Procedure TForm1.CheckBox2Click(Sender: TObject);
begin
 with form1.Memo.Font do
  if checkbox1.Checked = true then
   style:= style+[fsItalic]
  else
   style:= style-[fsItalic];
end;

 

Procedure TForm1.CheckBox3Click(Sender: TObject);
begin
 with form1.Memo.Font do
  if checkbox1.Checked = true then
   style:= style+[fsUnderline]
  else
   style:= style-[fsUnderline];
end;

ini untuk 3 buah radiobutton

Procedure TForm1.RadioButton1Click(Sender: TObject);
begin
 memo1.alignment:=TaLeftJustify;
end;

 

Procedure TForm1.RadioButton2Click(Sender: TObject);
begin
 memo1.alignment:=TaCenter;
end;

 

Procedure TForm1.RadioButton3Click(Sender: TObject);
begin
 memo1.alignment:=TaRightJustify;
end;

ini untuk listbox dengan event click

Procedure TForm1.Listbox1Click(Sender: TObject);
begin
 memo1.font.Name:=listbox1.Items.Strings[listbox1.ItemIndex];
end;

ini untuk combobox dengan event change

Procedure TForm1.Combobox1Change(Sender: TObject);
begin
 memo1.font.size:=StrToInt(combobox1.text)'
end;

coba coba saja dah ketik sesuatu pada memo nya dan klik2 button radio nya dan ubah ukurannya.

seperti itulah implementasi aplikasi penyeleksian dan pengulangan pada delphi.

*AFK

Related Articles

Tinggalkan Balasan

Alamat email Anda tidak akan dipublikasikan. Ruas yang wajib ditandai *

Back to top button