Código Delphi [-]procedure TForm1.FormCreate( Sender: TObject ); begin EnumPorts( cbPorts.Items ); if cbPorts.Items.Count > 0 then cbPorts.ItemIndex := 0; // show first available port end;
procedure TForm1.FormCreate( Sender: TObject ); begin EnumPorts( cbPorts.Items ); if cbPorts.Items.Count > 0 then cbPorts.ItemIndex := 0; // show first available port end;