Menambah dan menghapus item pada combobox

kapan hari ada yang bertanya bagaimana item yang ada dicombobox yang sudah terpilih tidak boleh dipilih lagi...?
kalo dijawab sesuai pertanyaan maka akan menjadi masalah, karena combobox enabled akan menjadi mati karena tidak bisa dipilih. jadi harus dijawab secara akal akalan. Karena programmer emang kerjaannya ngakalin computer...
bukan ngakalin orang..

jadi untuk yang sudah terpilih itemnya harus di hapus dari daftar item pilihan... sama kayak acara salah satu tv Take Me Out..
berikut ini simulasi menggunakan 1 edit, 1 combobox dan dua buah button.
button1 untuk menambahkan item ke combobox data yang tertulis di edit1.
sedang button2 untuk menghapus item pada combobox sesuai yang tertulis di edit1
unit Unit1;

interface

uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls;

type
TForm1 = class(TForm)
    Button1: TButton;
    ComboBox1: TComboBox;
    Button2: TButton;
    Edit1: TEdit;
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
private
    { Private declarations }
public
    { Public declarations }
end;

var
Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
begin
//tambah item
ComboBox1.Items.Add(edit1.Text)
end;

procedure TForm1.Button2Click(Sender: TObject);

begin

//hapus item
ComboBox1.Items.Delete(ComboBox1.Items.IndexOf(edit1.Text));
end;

end.

Anda baru saja membaca artikel tentang - Menambah dan menghapus item pada combobox. Silahkan baca artikel berikutnya Tentang - - Jangan lupa g+1 / fb / twit :)