Código Delphi [-] procedure TForm1.ComboBox1Change(Sender: TObject); begin Edit1.Text := IntToStr(ComboBox1.ItemIndex); end;
procedure TForm1.ComboBox1Change(Sender: TObject); begin Edit1.Text := IntToStr(ComboBox1.ItemIndex); end;