ListBox Delphi

Desainnya :

Jalannya program :




























Programnya :
procedure TForm1.Button1Click(Sender: TObject);
begin
if edit1.Text='' then
with Application do
begin
MessageBox('Anda belum mengisi','Perhatian');
RestoreTopMosts;
end
else
listbox1.Items.Add(edit1.Text);
edit2.Text:=inttostr(listbox1.Items.Count);
edit1.Text:='';
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
listbox1.Items.Add('Range Rover');
listbox1.Items.Add('Escalade');
listbox1.Items.Add('Porche');
listbox1.Items.Add('Lamborghini');
listbox1.Items.Add('Honda');
listbox1.Items.Add('Toyota');
edit2.Text:=inttostr(listbox1.Items.Count);
edit3.Text:=inttostr(listbox2.Items.Count);
end;

procedure TForm1.Button2Click(Sender: TObject);
begin
if listbox2.itemindex=-1 then
with Application do
begin
NormalizeTopMosts;
MessageBox('Anda belum memilih', 'Perhatian');
RestoreTopMosts;
end
else
edit4.Text:=listbox2.Items[listbox2.ItemIndex];
listbox2.DeleteSelected;
edit2.Text:=inttostr(listbox1.Items.Count);
edit3.Text:=inttostr(listbox2.Items.Count);
end;

procedure TForm1.Button3Click(Sender: TObject);
begin
if listbox1.itemindex=-1 then
with Application do
begin
NormalizeTopMosts;
MessageBox('Anda belum memilih', 'Perhatian');
RestoreTopMosts;
end
else
listbox2.Items.Add(listbox1.Items[listbox1.itemindex]);
listbox1.DeleteSelected;
edit2.Text:=inttostr(listbox1.Items.Count);
edit3.Text:=inttostr(listbox2.Items.Count);
end;

procedure TForm1.Button4Click(Sender: TObject);
var a:integer;
begin
for a:=0 to listbox1.Items.Count-1
listbox2.Items.Add(listbox1.Items[a]);
listbox1.Items.Clear;
edit2.Text:=inttostr(listbox1.Items.Count);
edit3.Text:=inttostr(listbox2.Items.Count);
end;

procedure TForm1.Button5Click(Sender: TObject);
begin
if listbox2.itemindex=-1 then
with Application do
begin
NormalizeTopMosts;
MessageBox('Anda belum memilih', 'Perhatian');
RestoreTopMosts;
end
else
listbox1.Items.Add(listbox2.Items[listbox2.itemindex]);
listbox2.DeleteSelected;
edit2.Text:=inttostr(listbox1.Items.Count);
edit3.Text:=inttostr(listbox2.Items.Count);
end;

procedure TForm1.Button6Click(Sender: TObject);
var a:integer;
begin
for a:=0 to listbox2.Items.Count-1
listbox1.Items.Add(listbox2.Items[a]);
listbox2.Items.Clear;
edit2.Text:=inttostr(listbox1.Items.Count);
edit3.Text:=inttostr(listbox2.Items.Count);
end;

procedure TForm1.Button7Click(Sender: TObject);
begin
listbox2.Items.Clear;
edit3.Text:=inttostr(listbox2.Items.Count);
end;