Pencarian Data (Items) pada ComboBox dengan TextBox

Pencarian Data (Items) pada ComboBox dengan TextBox

03122016

Pada tip berikut ini, Anda akan mempelajari cara mencari suatu data (items) pada ComboBox dengan mengisikan ID-nya (identitas) pada TextBox sehingga ketika Anda mengisikan ID tersebut, secara otomatis nama yang dicari akan muncul. Akan tetapi kemunculan data tersebut akan terjadi jika Anda mengisikan data pencarian yang benar-benar ada dalam TextBox tersebut. Jika dalam ComboBox tidak terdapat data tersebut, maka isi masukkan TextBox tersebut tidak akan menampilkan data secara otomatis. Untuk lebih jelasnya silahkan Anda mengikuti cara pembuatannya berikut ini.

1. Desain Form baru Anda dengan dengan menambahkan sebuah komponen Edit dan ComboBox

2. Sekarang isikan data daftar nama (items) pada kontrol ComboBox tersebut, misal dengan nama teman-teman Anda atau yang lainnya.

3. Arahkan kursor Anda ke jendela unit dan tambahkan listing program berikut selengkapnya :

procedure TForm1.Edit1KeyUp(Sender: TObject; var Key: Word; Shift:TShiftState);
var
  X: Integer;
  Temp: String;
function CheckCombo(InString: String): String;
var
  X: Integer;
begin
  for X:=0 to ComboBox1.Items.Count-1 do
    if LowerCase(copy(ComboBox1.Items.String[X], 1, length(InString)))=LowerCase(InString) then
      begin
      Result:=ComboBox1.Items.String[X];
      Exit;
      end
    else
      Result:='';
    end;
  begin
  X:=Edit1.SelStart;
  Edit1.SelStart:=X;
  Edit1.SelLength:=1;
  Edit1.SelText:='';
  Temp:=CheckCombo(Edit1.Text);
  if Temp <> '' then
    Edit1.Text:=Temp
  else
    begin
    Edit1.SelLength:=Length(Edit1.Text)-X;
    Edit1.SelText:='';
    end;
  Edit1.SelStart:=X;
  end;
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
  Form1.KeyPreview:=True;
  Edit1.Text:='Ketik ID Hurufnya';
  ComboBox1.Text:='Cek Disini';
end;

4. Jalankan Aplikasi tersebut dan coba Anda isikan ID pada TextBox tersebut, misal “A”. Seketika itu juga, huruf tersebut berubah menjadi nama teman Anda yang memiliki awalan “A”. Hal itu terjadi karena data didalam ComboBox terdapat data nama yang memiliki awalan huruf “A”. Untuk membuktikan hal itu, coba Anda arahkan kursor Anda pada ComboBox ‘Cek Disini’ dengan klik tombol arah panah kebawah untuk mengecek apakah benar pada ComboBox tersebut terdapat data nama dengan yang muncul tersebut.

Selamat Mencoba!!