Code:
procedure TFrmUnosDesktop.ComboBox1DropDown(Sender: TObject);
begin
with ADOQuery1 do
begin
combobox1.Clear;
Close;
SQL.Clear;
SQL.Add('select * from [komponenta]');
SQL.Add('where sifradela = 4');
Open;
//ADOQuery1.First; suvišno, kad se Query otvori on je po defaultu na prvom slogu
while (not ADOQuery1.Eof) do
begin
comboBOX1.Items.AddObject(adoquery1.Fields[3].AsString, TObject(adoquery1.Fields[2].AsInteger));
adoquery1.Next;
//sifradela1 := Integer(ComboBox1.Items.Objects[0]); suvišno, integer je snimljen već u objekat
end;
end;
end;
procedure TFrmUnosDesktop.ComboBox1Exit(Sender: TObject);
begin
label1.Caption := inttostr(Integer(TObject(ComboBox1.Items.Object[ComboBox1.ItemIndex]));
end;
pokusaj da učitaš na ovaj način, trebalo bi da radi.
Nikad izvini!
Combobox sa dve kolone