Aplikasi Penyeleksian dan Pengulangan dengan Delphi #40

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 :

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